Aide sur insertion compteur dans excel [Résolu]

Bonjour,

Explications dans fichier joint http://cjoint.com/?2krkOHGYuL8

Bonne journée.

Salut,

Sans déplacement de cellule, en A1 les valeurs à ajouter en A3 en simple clic sur Entrée

Coller ce code dans les propriétés de la feuille (clic droit sur l'onglet de feuille concerné/Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.OnKey "{RETURN}"
Cells(3, 1).Value = Cells(3, 1).Value + [A1]
Application.OnKey "{ENTER}"
End If
End Sub