At design-time set multi-line property to True!
Sur la gauche, dans les propiétés, en mode graphique, passer la valeur à true
Enjoy
'Filtrer les cases contenant "0"
With ThisWorkbook.Worksheets(SheetName).ListObjects(NomTableau)
.Range.AutoFilter Field:=.ListColumns("TitreColonne").Index, Criteria1:="<>0"
End With
Exemple pour sélectionner et modifier une cellule depuis une contenance d'une autre feuille
'On recupère le nom de la table du dernier worksheet dans NomTableau
Worksheets(LastSheetName).Activate
Dim NomTableau
NomTableau = Range("A4").ListObject.Name
'on modifie la valeur tableau dans synthese
Worksheets("Synthèse").Activate
Range("C1") = NomTableau
Exemple pour changer le type de texte à nombre pour ces colones
Dim Colonne
Colonne = Worksheets("Mafeuille1").ListObjects(NomTableau).ListColumns("NomTitreTableau").Range.Column
With Worksheets(Mafeuille1).Columns(Colonne)
.NumberFormat = "0"
.Value = .Value
End With
'On récupère les numéros de colones en fonction des titres / headers d'un tableau, efficace sir les colonnes changent de place
Dim Col1, Col2, Col3, Col4
Col1 = Worksheets(LastSheetName).ListObjects(NomTableau).ListColumns("NomHeader1").Range.Column
Col2 = Worksheets(LastSheetName).ListObjects(NomTableau).ListColumns("NomHeader2").Range.Column
Col3 = Worksheets(LastSheetName).ListObjects(NomTableau).ListColumns("NomHeader3").Range.Column
Col4 = Worksheets(LastSheetName).ListObjects(NomTableau).ListColumns("NomHeader4").Range.Column