Sub Tri(w As Worksheet) 'code de base
w.Unprotect "lino"
w.[A7:C60].Sort Key1:=w.[A7], Order1:=xlAscending, Header:=xlGuess
w.Protect "lino"
End Sub
Sub TrierTouteFeuille()
Dim w As Worksheet
For Each w In Worksheets
Tri w
Next
End Sub
Sub TrierChaqueMois1()
Dim w As Worksheet
For Each w In Worksheets
If IsDate("1-" & w.Name) Then Tri w 'si feuille d'un mois
Next
End Sub
Sub TrierChaqueMois2()
Dim i As Byte
On Error Resume Next 'si la feuille du mois n'existe pas
For i = 1 To 12
Tri Sheets(Format("1/" & i, "mmmm"))
Next
End Sub
Sub TrierChaqueMois3()
Dim liste, w As Worksheet
liste = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
"Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For Each w In Worksheets
If IsNumeric(Application.Match(w.Name, liste, 0)) Then Tri w
Next
End Sub