Boucle pour même trie pour tous les onglets

Bonjour le forum, j’espère que vous allez bien.

En me basant sur le code de Mferrand j'ai voulu créer une boucle pour que le trie se fasse sur tous les onglets. Je n'ai malheureusement pas réussi à aboutir. Pourriez vous m’aider svp. Il y a juste à trier par ordre croissant (A-Z) la colonne C tous les onglets. Je voudrais faire une boucle pour éviter la répétition des lignes dans la macro.

Je vous joint le code que j'ai essayer de faire même si je suis pas sûr que ça vous aide. Ainsi que le fichier à trier

Sub Macro2()
Dim SC, i%
SC = Sheets.Count
P = Range("C:C")
With ActiveSheet
For i = 1 To SC
    With .Range(P(i))
    .Sort Key1:=Range("C1"), Order1:=xlAscending
    End With
Next i
End With
End Sub

Je vous remercie par d'avance pour votre aide

Bonjour,

Test comme ça :

Sub Macro2()
Dim SC, DerLigneC%, i%
SC = Sheets.Count
DerLigneC = Range("C1").End(xlDown).Row
        For i = 1 To SC
            With Sheets(i).Range("C2:C" & DerLigneC)
            .Sort Key1:=Sheets(i).Range("C1"), Order1:=xlAscending
            End With
        Next i
End Sub

Pour info avec l'entete, le tri ne doit pas etre sur la colonne C mais commencer à C2 (jusqu'a la derniere valeur dans cette colonne).

Attention si tu ne travail pas avec des tableaux, seule la colonne C sera trié.
Ou tu peux modifier ça

            With Sheets(i).Range("C2:C" & DerLigneC)

            With Sheets(i).Range("A2:G" & DerLigneC)

A+

Merci Geof52 ça fonctionne très bien.

Merci également pour l'explication de mon erreur ça m'aide beaucoup.

Par précaution, j'ai suivi ta remarque et étendu le range jusqu’à G.

Merci beaucoup.

Bonne fin de journée et bon weekend.