Sub TrierFeuilles()
Dim sh As Worksheet
Dim c As Range
For Each sh In Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
Set c = sh.Rows(1).Find(what:="INFO", LookIn:=xlValues, lookAt:=xlWhole, searchorder:=xlByRows, MatchCase:=False)
If Not c Is Nothing Then
sh.UsedRange.Sort Key1:=c, Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Next
End Sub