Bonjour Minanse et merci de ton aide c'est presque ça
en fait, en cellule jaune je devrais avoir l'addition suivante: A15 - B15 + C15
je modifie le code ainsi :
Sub calcul()
Dim l As Integer
l = Range("D" & Rows.Count).End(xlUp).Row + 1
Range("D" & l) = Application.WorksheetFunction.Sum(Range("A" & i & ":C" & i))
Next i
End Sub
mais ça me somme le tout ...je ne connais pas le mot clé pour intégrer la soustraction