Fonction sum()

Bonjour a tous je suis sous VB 6.3 et j'ai un petit soucis avec la fonction SUM()
voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Somme_gdtotal() ' ' Somme_gdtotal Macro ' Macro enregistrée le 23/08/2007 par Paul '   '   Range("A1").Select Cells.Find(What:="gdtotal", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate debut = ActiveCell.Row colonne = ActiveCell.Column ActiveCell.Offset(1, 0).Select Selection.End(xlDown).Select fin = ActiveCell.Row ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=SUM(R[debut]C:R[fin]C)" ActiveCell.Offset(1, 0).Select   End Sub

---

Et j'ai un message d'erreur, alors que mes variables prennent bien les bonnes valeurs. Si je remplace les variables "debut" et "fin" par des chiffres ça fonctionne ???

Merci de votre aide
Polo

Je ne suis pas un expert en VBA, mais je pense que cela marcherais mieux si à la palce de cela :

Code:

---

ActiveCell.FormulaR1C1 = "=SUM(R[debut]C:R[fin]C)"

---

tu fait :

Code:

---

ActiveCell.FormulaR1C1 = "=SUM(R[" & debut & "]C:R[" & fin & "]C)"

---