Sub onglet_Papou()
On Error Resume Next
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count
For J = 1 To I - 1
If UCase(Sheets(I).Name) < UCase(Sheets(J).Name) Then
Sheets(I).Move Sheets(J)
Exit For
End If
Next J
Next I
Sheets("PM").Select
Sheets("PM").Move Before:=Worksheets("P1")
Sheets("Récap").Select
Sheets("Récap").Move Before:=Worksheets("PM")
End Sub