Addition avec remise à zéro

Option Explicit

' colonnes concernées par la macro
Const coAchat = "G"
Const coTotal = "F"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim total As Long, li As Long
' si la cible est non numerique ou vide on quitte sans rien faire
If Not IsNumeric(Target.Value) Or Target.Value = "" Then Target.Offset(1, 0).Select: Exit Sub
' si la cible est dans la colonne coTotal on y va
If Not Intersect(Target, Columns(coTotal)) Is Nothing Then
  ' ligne de la cible
  li = Target.Row
  ' calcul du nouveau total
  total = Target.Value
  total = total + Range(coAchat & li).Value
  Range(coTotal & li).Value = total
  ' maj du total achat
  Range(coAchat & li).Value = ""
  ' raz de achat
  Range(coTotal & li + 1).Select
End If
End Sub