Option Explicit
Sub OngletsOrdreAlpha()
Dim sh As Worksheet, m() As String, i As Byte, ws As Worksheet
Dim t As Byte, u As Byte, temp As String
Application.ScreenUpdating = False
Set ws = Sheets(1)
i = 1
For Each sh In Worksheets
ReDim Preserve m(1 To i)
m(i) = sh.Name
i = i + 1
Next sh
For t = LBound(m) To UBound(m)
For u = LBound(m) To UBound(m)
If m(t) < m(u) Then
temp = m(t)
m(t) = m(u)
m(u) = temp
End If
Next u
Next t
For i = LBound(m) To UBound(m)
For Each sh In Worksheets
If sh.Name = m(i) Then
sh.Move Sheets(i)
Exit For
End If
Next sh
Next i
ws.Move Sheets(1)
Application.ScreenUpdating = True
End Sub