[COLOR=DarkSlateGray][B]Sub TrierOnglets()
Dim i&, j&, Dat(), v1$, v2$
ReDim Dat(1 To Sheets.Count, 1 To 2)
For i = 1 To Sheets.Count
Dat(i, 1) = UCase(Sheets(i).[E1].Value): Dat(i, 2) = Sheets(i).Name
Next i
For i = 1 To Sheets.Count
v1 = Dat(i, 1): v2 = Dat(i, 2)
For j = 1 To Sheets.Count
If Dat(j, 1) < v1 Then Dat(i, 1) = Dat(j, 1): Dat(j, 1) = v1: v1 = Dat(i, 1): Dat(i, 2) = Dat(j, 2): Dat(j, 2) = v2: v2 = Dat(i, 2)
Next j
Next i
For i = 1 To Sheets.Count
Sheets(Dat(i, 2)).Move before:=Sheets(1)
Next i
End Sub[/B][/COLOR]