bonjour

j'ai un petit souci : j'ai une macro pour classer les feuilles d'un workbook dans l'ordre croissant (classement numérique de 1 feuille à x feuilles). Le programme tourne bien jusquà 9 feuilles mais passé à 10 feuilles, le classement se pose en 2eme position juste après la feuille 1
voici la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub trier_feuilles()
 
Dim x As Integer
Dim y As Integer
 
For x = 1 To Sheets.Count
For y = 1 To (x - 1)
 
If (Sheets(x).Name) < (Sheets(y).Name) Then
 
    Sheets(x).Move before:=Sheets(y)
 
Exit For
End If
Next y
Next x
 
End Sub

Voyez vous ce qui ne va pas ?
Merci pour votre aide