Re,
Dans ta macro ,j'ai simplement rajouté une variable pour calculer et recupérer la dernière ligne de façon dynamique par cette ligne suivante :
DerLig = ActiveCell.SpecialCells(xlLastCell).Row
et je rajouté cette variable dans la ligne que tu avais déjà dans la macro :
ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[" & DerLig - 2 & "]C)"
C'est tout. Bient entendu, il y a d'autres manières d'y arriver.