Bonjour Alex, Papaye, le Forum
La solution de papaye (code de http://dj.joss.free.fr/feuil.htm#trifeuil
) en adaptant un peu.
Cordialement, A+
Sub Tri_Feuilles_par_Mois()
Dim X As Variant
Dim I As Variant
Application.ScreenUpdating = False
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Not (IsDate(Sheets(I - 1).Name)) Then MsgBox Sheets(I - 1).Name & " impossible à convertir": Exit Sub
If Not (IsDate(Sheets(I).Name)) Then MsgBox Sheets(I).Name & " impossible à convertir": Exit Sub
If DateValue(Sheets(I - 1).Name) > DateValue(Sheets(I).Name) Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next I
Next X
End Sub