Bonjour, Fred
Voici une solution,
1) Copie le code ci-dessous,
2) Fait un clique droit sur l'onglet de la feuille,
3) Choisi de "Visualiser le code"
4) Dans la fenêtre au premier plan, colle le code
Attention, il ne doit pas avoir qu'une Sub Worksheet_SelectionChange
si c'est le cas rajouter les lignes de If Range .... End If
5) Ferme VBA, pour revenir sur la feuille
6) C'est fait.
Voici le code
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("A1") <> 0 Then
Range("C1") = Range("C1") + Range("A1")
Range("A1") = 0
End If
End Sub
Ce que va faire le code, à chaque fois que l'événement de changement de cellule active, aura lieu l'addition sera faîte, et la cellule A1 sera remise à zéro.
Bonne journée
@+Jean-Marie