Sub TriFeuilles2()[COLOR=Green]'By Ti[/COLOR]
Dim Bcle As Integer, Index As Integer, Sh As Object
Application.ScreenUpdating = False
On Error Resume Next
With ThisWorkbook
For Each Sh In ThisWorkbook.Sheets
If Sh.Index >= 1 Then
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
End If
Next Sh
End With
Application.ScreenUpdating = True
End Sub