Problème avec Autofill

Bonjour,

Je souhaite utilser la fonction autofill à partir d'une formule écrite sur la cellule A1 jusqu'à la fin de mon fichier de données dont la dernière ligne a été identifer comme ceci:

Code:

---

LR = Range("A1").SpecialCells(xlLastCell).Row

---

Et la dernière colonne comme ceci:

Code:

---

LC = Range("A1").SpecialCells(xlLastCell).Column

---

Sur une autre feuille j'ai écrit ma formule en A1 et je compte la dupliquer jusqu'au bout en utilisant ce code, mais ça ne fonctionne pas...

Code:

---

Selection.AutoFill Destination:=("A1:" & LC & LR)

---

Qu'est-ce qui cloche ? Comment faire pour que ma macro fonctionne ?
Merci d'avance !

Cordialement,

Runsh

Bonjour,
un code à essayer pour que A se recopie sur toute la colonne A jusque la dernière ligne

Code:

---

1 2 3 4 5 6 7

Sub essai() Dim LC, LR, cel As Range LC = Range("A1").SpecialCells(xlLastCell).Column LR = Columns(LC).SpecialCells(xlLastCell).Row Set cel = Cells(LR, 1) Range("A1").AutoFill Destination:=Range("A1", cel.Address), Type:=xlFillDefault End Sub

---

Je me suis inspiré de votre code et ai réussi à trouver une solution.
Merci !