Sub classer()
'cela marche mais le classement se fait par le num de semaine
Dim Onglet As Worksheet
Dim Feu() As String
Dim Indexe As Long, Tri As Long
Dim Tampon As String
Dim Bouge As Boolean
Application.ScreenUpdating = False
ReDim Feu(1, ThisWorkbook.Worksheets.Count) As String
Indexe = 1
For Each Onglet In ThisWorkbook.Sheets
If Onglet.Name <> "Exploitation" Then
Feu(0, Indexe) = Mid(Onglet.Name, 2) + Onglet.Range("D1") * 100
Feu(1, Indexe) = Onglet.Name
Indexe = Indexe + 1
End If
Next
Do
Bouge = False:
For Tri = 1 To Indexe - 2
If Feu(0, Tri) > Feu(0, Tri + 1) Then
Tampon = Feu(1, Tri): Feu(1, Tri) = Feu(1, Tri + 1): Feu(1, Tri + 1) = Tampon
Tampon = Feu(0, Tri): Feu(0, Tri) = Feu(0, Tri + 1): Feu(0, Tri + 1) = Tampon
Bouge = True
End If
Next
Loop Until Bouge = False
For Tri = 1 To Indexe - 1
Sheets(Feu(1, Tri)).Move after:=Sheets("Exploitation")
Next
End Sub