Sub Tri_OngletDirect()
'------------------------------------------------------------------------------
' Pris sur le site de Jacques Boisgontier (http://boisgontierjacques.free.fr/)
'------------------------------------------------------------------------------
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub