VBA Calcul somme sur une autre feuil

Bonjour

avant tout je vous remercier d'avance pour votre partcipation.
Voici mon probleme .
J'ai un macro qui me permet de faire la somme de 3 plage de Cellules A1,B1 et C1 .Le code marche mais j'aimerais l'adapter a une infinité de plage .
Pour le faire il me faut faire une boucle FOR et le code beugue a chaque fois que je fais la boucle.

Si vous avez des propositions elles seront les bien venues.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Somme() Range("A1").Select ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"   Range("B1").Select ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"   Range("C1").Select ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"   End Sub

---

Bonjour,

Je veux bien t'aider mais je ne vois pas de boucle dans ta source, donc, impossible de savoir où ça bugge.

Un conseil en passant pour simplifier le code, accélérer l'exécution et éviter les clignotements désagréables de l'écran, ne pas utiliser de "Select".
Remplaces donc

Code:

---

1 2	Range("A1").Select ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"

---

par

Code:

---

Range("A1").FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"

---