Sub T_designations()
Dim T_designations as ListObject
Set T_designations = Worksheets("synthese").listobjects("T_designations")
T_designation.DataBodyRange.sort Key:=Range("T_designations[designation]")...
Sub T_designations()
' T_DESIGNATIONS
Dim Ds As ListObject
Set Ds = Worksheets("synthèse").ListObjects("Tableau3")
Ds.DataBodyRange.Sort Key1:=Range("Tableau3[désignation]"), Order1:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
oula ca me fait n'importe quoi du coupRe,
J'ai copié le code dans la bonne macro