For boucle = 1 To Sheets.Count
If IsNumeric(Sheets(boucle).Name) Then
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
End If
Next boucle
MsgBox "opération effectuée"