Etirer Formule tant que cellule non vide

Bonjour à tous,

Je débute avec VBA et je bute sur quelques choses qui me semble pas compliqué mais dont je ne trouve pas la bonne solution.

J'aimerai "tirer" une formule vers le bas tant que j'ai des données dans une autre feuille.

Dans un classeur, j'ai 2 feuilles de calculs.

La 1ere (nommé 'Catalogue') est un simple copier coller de données envoyé par mon fournisseur.

La 2eme (nommé 'Produit') est mon fichier de travail. Dans ma 1ere colonne (ligne 2) j'ai une bête formule =Catalogue!B2. J'aimerai descendre cette formule tant que j'ai des données dans la colonne B de la feuille 'Catalogue'.

Merci par avance

Bonjour

Cordialement

J'ai finalement trouvé une réponse, peut etre pas la meilleure mais ça fait ce que je voulais

Dim DernLigne As Long

Sheets("Catalogue").Select

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Sheets("Produit").Select

Range("A2").AutoFill Destination:=Range("A2:A" & DernLigne)

Fais ceci plutot

Dim DernLigne As Long
with Sheets("Produit")
    DernLigne = Sheets("Catalogue").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A2").AutoFill Destination:=.Range("A2:A" & DernLigne)
End with

Cordialement

Merci pour la correction :)