Tri par macro sur toutes les feuilles

Bonjour a tous,

Dans mon classeurs qui est sur plusieurs pages,

Je souhaite effectuer un tri dans chaque page.

J'ai essayé avec une macro, mais quand je l'exécute, ben elle ne fonctionne que sue la page active.

Pq? Je ne sais pas? A mon avis c'est tout con, mais je passe dessus sans ne rien remarqué

Quelqu'un peut il y jeter un œil?

D'avance merci

Bonjour,

parce que les paramètres de tri n'ont pas été initialisés sur les autres feuilles

For Each Ws In Worksheets

If Ws.Name <> "Etiquettes" Then
    Lcel = Ws.Range("a" & Rows.Count).End(xlUp).Row
    lcol = Ws.Range("A1").End(xlToRight).Column
    Ws.Sort.SortFields.Clear
    Ws.Sort.SortFields.Add Key:=Range("B3") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With Ws.Sort
        .SetRange Ws.Range(Ws.Cells(3, 1), Ws.Cells(Lcel, lcol))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End If

Next

Merci Steelson.

C'est Nickel