Salut,
J'avais fait pas longtemps une procédure pour le tri des feuilles, dans ton cas en changeant l'indice pour le tri, à coller dans un module
Option Explicit
Option Base 1
Dim T()
Sub Princ()
Dim I As Long, J As Byte
Application.ScreenUpdating = False
ReDim T(ThisWorkbook.Worksheets.Count)
For I = 1 To ThisWorkbook.Worksheets.Count
T(I) = Sheets(I).Name
Next I
TrieTableau 2, UBound(T) 'Mettre 1 pour trier toutes les feuilles, 3 à partir de la 3 eme etc..
J = 0
For I = UBound(T) To 1 Step -1
Sheets(T(I)).Move after:=Sheets(ThisWorkbook.Worksheets.Count - J)
J = J + 1
Next I
End Sub
Sub TrieTableau(Deb As Long, Fin As Long)
'Ti
Dim IndiceInf As Long, IndiceSup As Long
Dim Temp1, Pivot
IndiceInf = Deb
IndiceSup = Fin
Pivot = UCase(T((Deb + Fin) \ 2))
Do
While UCase(T(IndiceInf)) < Pivot
IndiceInf = IndiceInf + 1
Wend
While Pivot < UCase(T(IndiceSup))
IndiceSup = IndiceSup - 1
Wend
If IndiceInf <= IndiceSup Then
Temp1 = T(IndiceInf)
T(IndiceInf) = T(IndiceSup)
T(IndiceSup) = Temp1
IndiceInf = IndiceInf + 1
IndiceSup = IndiceSup - 1
End If
Loop Until IndiceInf > IndiceSup
If Deb < IndiceSup Then TrieTableau Deb, IndiceSup
If IndiceInf < Fin Then TrieTableau IndiceInf, Fin
End Sub
A+++