incrémentation de cellule

Bonjour, je suis coincer dans excel....!!!

Voici mon probleme :

danbs la cellule A1, il y a une valeur et j'aimerai creer une macro qui, a chaque fois qu elle est executée, incrément le nombre de la cellule A1 de 1
c'est à dire A1=A1+1 comment l'ecrire ??? merci d'avance !!

Bonsoir

Code:

---

1 2 3 4 5

Sub IncrementerA() On Error Resume Next [a1] = [a1] + 1 End Sub

---