Boucle tri sur plusieurs feuilles

Bonjour le Forum
Je souhaite faire un tri identique (sur colonne S) sur plusieurs feuilles par le code suivant mais plantage
Je ne vois pas mon erreur, Y-a-t-il une autre solution ?

MERCI

Dim Cpt As Integer
Dim Feuilles() As Variant

'Mise en tableau des feuilles
Feuilles = Array("M1", "M2", "M3", "IZ", "CH", "ME", "CHEA")
For Cpt = 0 To UBound(Feuilles)
With Sheets(Feuilles(Cpt))
Range("A1:S" & Range("A65536").End(xlUp).Row).Select
Selection.Sort _
Key1:=Range("S:S"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Next