Sub Autres_Semaines()
Dim i&
Application.ScreenUpdating = False
With ThisWorkbook
For i = 35 To 1 Step -1
.Worksheets(CStr(i + 1)).Copy before:=.Worksheets(CStr(i + 1))
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") - 7
ActiveSheet.Name = ActiveSheet.Range("a1")
Next i
For i = 37 To 53 Step 1
.Worksheets(CStr(i - 1)).Copy after:=.Worksheets(CStr(i - 1))
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + 7
If ActiveSheet.Range("A1") <= 1 Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Exit Sub
End If
ActiveSheet.Name = ActiveSheet.Range("a1")
Next i
End With
End Sub