Sub TriTabBD2()
With Worksheets("BD2").ListObjects("t_BD2")
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("t_BD2[Type_de_lait]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("t_BD2[Formule]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("t_BD2[Taux_de_reconstitution]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub