Sub TriTab4()
Range("D2").Select 'Tri Tableau4
ActiveWorkbook.Worksheets("Parametres").ListObjects("Tableau4").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("Parametres").ListObjects("Tableau4").Sort.SortFields _
.Add2 Key:=Range("Tableau4[Nom]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Parametres").ListObjects("Tableau4").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub