Boucle tri sur plusieurs feuilles

[anber]

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

 

[Pierrot93]

Re : Boucle tri sur plusieurs feuilles

Bonjour,

tu places un bloc "with" mais tu ne l'utilise pas... essaye avec ceci, non testé ...

Dim Cpt As Integer
Dim Feuilles() As Variant
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).Sort _
            Key1:=.Range("S1"), Order1:=xlAscending, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
Next Cpt

bon après midi
@+

 

[anber]

Re : Boucle tri sur plusieurs feuilles

Bonjour Pierrot,
Bien vu ma bourde
C'est ok
Merci