Sub tri_onglet()
Dim i As Integer, j As Integer, num As Integer, nom As String
For i = 2 To Sheets.Count
num = 0: nom = Sheets(i).Name
For j = i - 1 To 1 Step -1
If Sheets(i).Name < Sheets(j).Name Then num = j
Next j
If num > 0 Then Sheets(i).Move before:=Sheets(num)
Next i
End Sub