Sub Tri()
Dim L As Integer
L = Range("B10000").End(xlUp).Row
ActiveWorkbook.Worksheets("Travail").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Travail").AutoFilter.Sort.SortFields.Add Key:= _
Range(Cells(2, 4), Cells(L, 4)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Travail").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub