re,puisque le fichier ne passe pas le code
Sub TriFeuilles()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Range('A8').Sort Key1:=WS.Range('A9'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next WS
End Sub
à bientôt