Somme de cellules

Bonjour

Je voudrais faire la somme de 3 cellules et obtenir le résultat dans une quatrième.

Ensuite je voudrais supprimer le contenu des 3 premières cellules tout en conservant la somme écrite dans la quatrième.

Je joins mon tableau en annexe.

Merci pour l'aide

Bonne soirée

Berlingo

Bonsoir le forum,

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 2).Value = Val(Target.Offset(0, 2).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
If Not Intersect(Target, Range("C2:C5")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Val(Target.Offset(0, 1).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
End Sub

Je m'inquiétais pour ta santé.

Mais, ouf, j'ai constaté ton retour sur le forum !