Classement d'onglets

bonjour

je dispose du code suivant me permettant de classer les onglets de mon classeur , j'ai une feuille nommée " compta " et toute les autres numerotées 1,2,3,4 à 12 , seulement en executant le code suivant , j'obtiens un classement anormal de mes feuilles numerotées

1 à 12 , j'obtiens apres execution de ma macro l'ordre suivant l'ordre suivant : " compta " 9,8,7,6,5,4,3,2,12,11,10,1 au lieu de

compta , 12,11,10,9,8,7,6,5,4,3,2,1

le code que j'utilise est le suivant :

For Boucle = 1 To Sheets.Count
        For Compteur = 1 To (Boucle - 1)
            If (UCase(Sheets(Boucle).Name) > UCase(Sheets(Compteur).Name)) Then
                Sheets(Boucle).Move before:=Sheets(Compteur)
                Exit For
            End If
        Next Compteur
    Next Boucle

je ne comprend pas l'origine de ce petit soucis , auriez vous une explication ?

merci pour vos interventions

j'ai pu trouver la solution , j'ai juste renommé mes feuilles 1 à 9 en 01 02 03 ..... 09 et ca marche

merci

Bonjour

Sinon une autre méthode à tester

Sub Tri2()
Dim I As Integer

  Application.ScreenUpdating = False
  With Sheets.Add(before:=Sheets(1))
    For I = 2 To Sheets.Count
      .Range("A" & I - 1) = Sheets(I).Name
    Next I
    .Columns("A").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    For I = 2 To Sheets.Count
      Sheets(CStr(.Range("A" & I - 1))).Move after:=Sheets(I - 1)
    Next I
    Application.DisplayAlerts = False
    .Delete
  End With

End Sub

Merci Banzai , je vais aussi essayer ta methode