Création d'une macro

Bonjour,

J'ai besoin de votre aide car je cherche à créer une macro mais je ne sais pas comment arriver au résultat souhaité.

J'ai une première feuille Excel qui présente l'activité en semaine 44 et je souhaiterai via un bouton de macro créer la semaine suivante S45.



C'est à dire copier la feuille dans un nouvel onglet et modifier le numéro de semaine ainsi que les dates.
Jusqu'à cette étape ma macro fonctionne.
Par contre j'aimerais que quand je clique à nouveau sur le bouton de macro de la semaine 45 la semaine 46 soit créée. Je ne sais pas comment réaliser cette action.

Ci-dessous le code que j'ai :
Sub Semaine_suiv()
'
' Semaine_suiv Macro
'

'
Sheets("Feuil1").Select
Sheets("Feuil1").Copy Before:=Sheets(2)
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+1"
Range("C11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+7"
Range("D11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC+7"
Range("D11").Select
Selection.AutoFill Destination:=Range("D11:G11"), Type:=xlFillDefault
Range("D11:G11").Select
Range("C12").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range("WZM12").Select
ActiveWindow.ScrollColumn = 16237
ActiveWindow.ScrollColumn = 1
Range("C12").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C12:G18").Select
Selection.ClearContents
Range("H1").Select
End Sub

Merci par avance pour votre aide.