bonjour,
une proposition, on ne déplace les feuilles qu'une fois qu'on a trié leurs noms. (j'ai fait le test avec 500 feuilles)
Sub aargh()
ReDim f(Sheets.Count)
For i = 1 To Sheets.Count
f(i) = Sheets(i).Name
Next i
For i = 1 To Sheets.Count - 1
For j = i + 1 To Sheets.Count
If f(i) > f(j) Then a = f(i): f(i) = f(j): f(j) = a
Next j
Next i
For i = 1 To Sheets.Count
Sheets(f(i)).Move before:=Sheets(i)
Next i
End Sub
la macro ci-dessus ne fonctionne pas avec le fichier de navek, j'ai dû adapter la macro (version ci-dessous qui elle fonctionne bien sur le fichier en question). Mais je n'ai pas compris pourquoi la première version ne fonctionne pas (les onglets ne sont pas affichés dans l'ordre alphabétique).
Sub aargh()
ReDim f(Sheets.Count)
For i = 1 To Sheets.Count
f(i) = Sheets(i).Name
Next i
For i = 1 To Sheets.Count - 1
For j = i + 1 To Sheets.Count
If f(i) > f(j) Then a = f(i): f(i) = f(j): f(j) = a
Next j
Next i
Sheets(f(1)).Move before:=Sheets(1)
For i = 2 To Sheets.Count
Sheets(f(i)).Move after:=Sheets(f(i - 1))
Next i
End Sub