recopie

bonjour à tous... voilà mon pb j'ai créé un planning sous excel avec une feuille pour chaque mois. pour une meilleure lecture suivant les mois j'inclue dans chaque feuille les 1ers jours du mois suivants. j'aimerai que les informations des 1ers jours du mois suivants viennent se renseigner automatiquement sur la feuille précédente. j'ai donc créé une procédure qui se déclenche dès que l'onglet est désactivé. je vais chercher le dernier jour du mois de la feuille qui précéde ( ex avril pour mai ) puis je me positionne sur la cellule correspondante. voici ci-dessous ce que j'avais fait mais ça ne marche pas.

pourriez-vous m'aider. merci

NumFeuille1 = Feuille.index
NumFeuille2 = NumFeuille1 - 1

' cherche la cellule du 1er jour du mois suivant pour la recopie
If Feuille.Name <> "Paramètres" Then
For Each cellule In Worksheets(NumFeuille2).Range("AE2:AJ2")
If Left(cellule.Value, 2) = "01" Then
Worksheets(NumFeuille1).Range("D3:J49").Copy _
Destination:=Worksheets(NumFeuille2).Range(cellule.Offset(RowOffset:=1))
End If
Next cellule

End If