Bonjour, Didicel
Place ce code dans le module de la feuille, Pour le faire Alt+F11, pour aller dans VBA, doucle clique sur la feuille qui contient ta cellule, colle le code.
Modifie lu numéro de la Row (ligne) et de la Column (colonne), la cellule "A1", en fonction de la référence de la cellule.
Dim SavValeurA1 As Double
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If (ActiveCell.Row = 1) And (ActiveCell.Column = 1) Then
SavValeurA1 = Range("A1")
Range("A1") = 0
Else
Range("A1") = Range("A1") + SavValeurA1
SavValeurA1 = 0
End If
End Sub
Bonne journée
Quand les maîtres du VBA, vous passez, ils te proposeront d'autres solutions
@+Jean-Marie