ordre alphabétique et nom de feuillet

[isar]

Est il possible de trier les onglets des feuilles par ordre alphabétique?

[excalibur]

bonjour isar le forum par macro
Option Explicit
Sub TriFeuilles()
Dim Bcle%, Index%, Sh As Object
On Error Resume Next
With ThisWorkbook
For Each Sh In ThisWorkbook.Sheets
For Index = 1 To .Sheets.Count
If LCase(Sh.Name) > LCase(.Sheets(Index).Name) And Sh.Index < Index Then
Sh.Move , .Sheets(Index)
End If
Next Index
Next Sh
End With
End Sub
salutations
PS : NE PAS OUBLIER DE LIRE LA CHARTRE AVANT DE POSTER

[isar]

Génial mais je suis pas une pro je fais comment pour faire ça????