[VBA-E] Appliquer une formule si cellule non vide.

Je suis debutant en VB, j'ai un souci...
Je souhaite appliquer une formule sur les cellules de la colonne "L:L", si les cellules de la colonne "A:A" ne sont pas vides. A la premiere cellule vide de la colonne "A:A" (fin de mes datas), on arrete d'appliquer la formule.
Pour l'instant j'applique betement la formule de la cellule "L2" a "L2000", mon soucis est que mon nombre de ligne peut etre variable. D'ou le soucis d'adaptation. Mon code est dessous:

Code:

---

1 2 3 4 5 6

Range("L2").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-5]="""","""",IF(RC[-5]="""","""",RC[-5]&""_""&(RC[-4]+100)&""_""&(RC[-3]+100)))" Range("L2").Select Selection.AutoFill Destination:=Range("L2:L2000"), Type:=xlFillDefault Range("L2:L2000").Select

---

Merci.

Il faut utiliser UsedRange.Rows.Count qui te donne le nombre de lignes utilisées (si tu a commencé à la ligne 1) ou alors range("a2").End(xlDown).row.
Tu obtiens alors :

Code:

---

1 2 3

derniere_ligne = range("a2").End(xlDown).row ' ou derniere_ligne = ActiveSheet.UsedRange.Rows.Count Range("L2").AutoFill Destination:=Range("L2:L" & derniere_ligne), Type:=xlFillDefault

---

Les Select ne servent à rien...

Ok Ca marche je te remercie pour ton aide.