ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range( _
"AH2:AH327"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range( _
"AG2:AG327"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil3").Sort
.SetRange Range("B1:AH327")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With