Bonsoir Jmp, bonsoir le forum,
Un petit code de l'événement Change à placer dans la feuille où tu veux qu'il agisse.
Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement
Dim li As Long 'déclare la variable li
'condition : n'agit que si le changement à lieu dans la colonne C ou D
If Target.Column = 3 Or Target.Column = 4 Then
li = Range("C65536").End(xlUp).Row 'définit la variable li (à adapter)
'place la formule A=C+D
Range("A1").FormulaR1C1 = "=sum(RC[2],RC[3])"
'recopie la formule A=C+D dans toutes les lignes (par rapport à la colonne C)
Range("A1").AutoFill Destination:=Range("A1:A" & li)
'efface les valeurs en dessous du repère de la variable li
Range("A" & li + 1 & ":A65536").ClearContents
End If
End Sub
À plus,
Robert