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
End Sub
Sheets(La_feuille).Move Before:=
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
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
With Sheets("PM")
.Select
.Move Before:=Worksheets("P1")
With Sheets("Récap")
.Select
.Move Before:=Worksheets("PM")
End With
End With
End Sub
Sub onglet_Papou()
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").Move Before:=Worksheets("P01")
Sheets("P99").Move Before:=Worksheets("PM")
Sheets("Récap").Move Before:=Worksheets("P99")
End Sub
Sub classe()
For n = 1 To Sheets.Count
For m = n + 1 To Sheets.Count
If Sheets(m).Name < Sheets(n).Name Then
Sheets(m).Move before:=Sheets(n)
End If
Next m
Next n
Sheets("PM").Move before:=Sheets(1)
Sheets("P99").Move before:=Sheets(1)
Sheets("Récap").Move before:=Sheets(1)
End Sub
Sheets("Pxx").Move before:=Sheets(1)
for n=1 to sheets.count
if sheets(n).name="PM" then
pm=n
exit for
end if
next n
For n = pm+1 To Sheets.Count
For m = n + 1 To Sheets.Count
If Sheets(m).Name < Sheets(n).Name Then
Sheets(m).Move before:=Sheets(n)
End If
Next m
Next n