[EXL2003] Incrémentation d'une cellule en VBA

Bonjour,

J'ai un petit problème pour réaliser l'incrémentation d'une cellule en VBA.
Je dispose d'un classeur avec une feuille nommée Initiale qui me sert de référence avec en cellule A3 le chiffre 1 qui doit s'incrémenter au fur et à mesure.
Ce chiffre doit ensuite être copié dans la feuille Nouveau Rapport, dans la cellule A3.

Quelqu'un a une astuce ?

Voilà un bout du code

Sub ref()
Sheets("Initiale").Range("A3").Value = Sheets("Initiale").Range("A3").Value + 1
Sheets("Nouveau Rapport").Range("A3").Value = Sheets("Initiale").Range("A3").Value
End sub

Merci d'avance