Bonjour,
Ceci par exemple ?
Sub Tri()
Dim Plage As Range
Dim Fe As Worksheet
For Each Fe In Worksheets
With Fe
'défini la plage pour chaque feuille (ici, de A1 à A?)
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
Plage.Sort Plage.Columns(1), xlAscending
Next Fe
End Sub
Hervé.