Sub tri_feuilles()
Dim nbf As Integer, i As Integer, j As Integer
nbf = Sheets.Count - 12
For i = 2 To nbf
nom = Sheets(i).Name
For j = i - 1 To 1 Step -1
If nom < Sheets(j).Name Then
Sheets(nom).Move before:=Sheets(j)
End If
Next j
Next i
For i = Sheets.Count - 12 To Sheets.Count
Sheets(i).Select
Range("A4:BI" & CStr(Sheets(i).Range("A65000").End(xlUp).Row)).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i
End Sub