Dim Valeur

Private Sub Worksheet_Change(ByVal Target As Range)

    'seulement en A1:A100
    If Not Intersect(Target, Range("E4:E800")) Is Nothing Then

        If Target.Count = 1 Then

             'gèle les évènements
            Application.EnableEvents = False

            'additionne l 'ancienne valeur à la nouvelle
            Target.Value = Target.Value + Valeur

             'réactive
            Application.EnableEvents = True

        End If

    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'seulement en A1:A100
    If Not Intersect(Target, Range("E4:E800")) Is Nothing Then

        If Target.Count = 1 Then

            'mémorise la valeur à l'entrée dans la cellule avant modif
            Valeur = Target.Value

        End If

    End If
    

End Sub