Autofill sur un objet range

Bonjour,
Je cherche à glisser une formule automatiquement sur un objet range, j'ai l'habitude de le faire sur une colonne ou une ligne , mon objectif aujourd'hui , c'est de le faire sur un tableau tout un entier, sachant que cet objet range est variable.

Code:

---

1 2 3 4 5

i = Day(Range("B2").Value) 'c = Split(Columns(i + 2).Address(ColumnAbsolute:=False), ":")(1) Range("C8").Formula = "=COUNTIFS(data!C6,TDB!R7C,data!C21,TDB!RC2)" Range("C8").AutoFill Destination:=Range("C8:C16") Range("C8:C16").AutoFill Destination:=Range(Cells(16, 3), Cells(16, i + 2))

---

Bonjour,

A moins que j'aie mal compris, remplace la dernière ligne par :

Code:

---

Range("C8:C16").AutoFill Destination:=Range(Cells(8, 3), Cells(16, i + 2))

---

oui ; t' as bien compris, je dois ouvrir les yeux
merci pour ton aide , ça fait l'affaire