Sub tri()
Dim sh As Object 'déclare la varialbe o (Onglet)
Dim pl As Range 'déclare la varialbe pl
For Each o In Sheets(Array("AO 1", "AO 2", "AO 3", "AO 4", "AO 5", "AO 6"))
Set pl = o.Range("ta_plage") 'définit la plage (à adapter à ton cas)
pl.Sort Key1:=pl.Offset(0, 1).Resize(1, 1), Order1:= _
xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Next o
End Sub