Cumuler le resultat d'une fonction avec arguments variable

Bonjour,

J'ai un petit soucis qui va peut-être vous paraitre idiot mais bon ... je n'ai pas encore trouvé la solution.

Je voudrais que dans une cellule cumuler les résultats de la somme d'un groupe de cellule ...

Je m'explique : j'ai dans la cellule I2 =SOMME(B2:H2)

si je rentre 2 en C2, j'ai évidemment 2 en I2 puis 4 en D2 : 6 en I2

Je voudrais que ce 6 reste si je supprime C2 et que 12 s'affiche si je rentre 6 en H2 par exemple.

C'est peut-être un peu bizard comme demande ... mais là, je galère

Je voudrais faire la même chose pour I3,I4 ...

J'ai un début de code mais qui ne marche que si je rentre les données dans ma cellule "cible" manuellement.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AncVal As Variant, NouvVal As Variant
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$I$2" Then Exit Sub
Application.EnableEvents = False
    NouvVal = Target.Value
    Application.Undo
    AncVal = Target.Value
     If IsNumeric(AncVal) And IsNumeric(NouvVal) Then
      Target.Value = NouvVal + Target.Value
    End If
  Application.EnableEvents = True
End Sub 

Merci cordialement pour votre aide

Bonjour,

Peut-être :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 2 Or Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Me.Columns("B:H")) Is Nothing Then
        If IsNumeric(Target.Value) Then Me.Cells(Target.Row, 9) = _
         Me.Cells(Target.Row, 9) + Target.Value
    End If
End Sub

Bonjour MFerrand

Je ne connais pas grand chose en VBA et je ne comprends pas du tout comment tu arrives a ce résultat mais c'est exactement ce qu'il me fallait ... je te remercie infiniment.

Patrick