Saisie avec addition de la valeur existante

Bonjour,

Je n'arrive pas à faire un compteur simple du type

une valeur existe en A2 et je voudrais entrer une valeur en A1 qui s'additionne à la valeur de A2 sans l'écraser et de façon itérative voir scénario

ETAT 1

CELLULE A1 A2

VALEURS CELLULES 5

ETAT 2

CELLULE A1 A2

VALEURS CELLULES 7 12

ETAT 3

CELLULE A1 A2

VALEURS CELLULES 10 22

C'est pour faire un compteur cumulatif avec une saisie simple en A1

Je vous remercie par avance de votre réponse

A bientôt

Bonjour

Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
[A2] = Range("A2").Value + Target.Value
End If
End Sub

Cordialement

merci

beaucoup