AUtofill en macro VBA

Bonjour
J'ai un tableau de ligne aléatoire.
A la dernière colonne, je fais une somme.
ce mois ci le tableau fait 15 ligne, donc je fais une somme sur la première ligne, et je veux faire un autofill sur les 14 lignes suivantes.
Je veux créer ça part macro VBA.
sachant que cette macro va être utilisée le mois prochain et le tableau aura un nombre de ligne différent.
Donc je fais :

Code:

---

1 2 3 4 5 6

Set Table = Worksheets(1).Range("B2").CurrentRegion NbLigne = Table.Rows.Count nbcol = Table.Columns.Count Range("BR3").Select ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-3]" Selection.AutoFill Destination:=Range("BR3:BR12")

---

mais je ne veux pas mettre le nom des cellules mais les longueurs liés au tableau.
donc je pensais

Code:

---

Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(NbLigne, 1))

---

mais cela ne fonctionne pas.
Avez vous une solution svp.
Cordialement

Petite remarque liminaire : les Select/Selection sur des Ranges, c'est rarement une bonne idée.

Ce que tu veux faire ne nécessite pas d'AutoFill :

Code:

---

Range("BR3:BR" & (NbLigne + 2)).Formula = "=BN3*BO3"

---

Mais si tu tiens à ton AutoFill :

Code:

---

Range("BR3").AutoFill Destination:=Range("BR3:BR" & (NbLigne + 2))

---