Merci à vous deux pour vos recherches.
Je suis en 2016 et mon collègue en 365.
J'ai testé l'exemple de Microsoft et c'est toujours pareil. Add passe, mais pas Add2.
Voilà le code testé
Sub tri()
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort.SortFields.Add2 _
Key:=Range("Tableau1[[#All],[Col1]]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
' SubField:="Population"
With ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub