Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "Feuil1" Then
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Range("A1").Select
Sheets(Feuille.Name).AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets(Feuille.Name).AutoFilter.Sort.SortFields.Add Key:=Range _
("A1:A11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(Feuille.Name).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
Next Feuille