XL 2010 Arranger par ordre alphabétique

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