<HTML>Bonjour
Sub Macro1()
Sheets.Add Count:=6, after:=Worksheets(Sheets.Count)
For i = 0 To 5 Step 1
Sheets(Sheets.Count - i).Name = "TaFeuille" & Sheets(Sheets.Count - i).Index
Next i
End Sub
Public Sub SortWorksheets()
Dim NbFeuilles,N,M
On Error Goto FindeMacro
Application.Screenupdating = False
NbFeuilles = ActiveWorkbook.Worksheets.Count
For M = 1 To NbFeuilles
For N = M To NbFeuilles
If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
Worksheets(N).Move before:=Worksheets(M)
End If
Next N
Next M
FindeMacro:
End Sub
bye
STéphane</HTML>