Somme de N cellules

Bonjour,

Je suis confronté au problème suivant : Je désire faire la somme de N cellules sur une colonne.

Je sais faire une somme avec un nombre de cellules déterminées.
Par exemple ici faire la somme des 4 cellules en dessous

-------------------------------------------------------------------

Sub Test()

ActiveSheet.Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[4]C)"

End Sub

-------------------------------------------------------------------

J'essaie maintenant de faire la somme de N cellules en dessous

-------------------------------------------------------------------

Sub Test()

Dim N As Integer

ActiveSheet.Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[N]C)"

End Sub

-------------------------------------------------------------------

Cependant ce bout de code ne marche pas ...

Quelqu'un aurait-il la solution ?

Merci 🙂