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+