Etendre une formule sur une Colonne

Bonjour,
Je débute tout juste en language VBA et j'ai codé cette formule ci-dessous. J'aimerais trouver un moyen de changer le numéro de ligne des cellules en gras automatiquement jusqu'a la ligne 160 plutot que copier & coller ma formule et changer manuellement mon numéro de ligne.

Merci pour votre aide.

Sub RechercheV_Article()
Dim Lg%

Lg = Sheets("Stock").Range("a65536").End(xlUp).Row
Range("d3") = Application.VLookup(Range("a3"), Sheets("Stock").Range("a1:r" & Lg), 2, 0)

If IsError(Range("d3")) Then Range("d3") = ""
Call RechercheV_Article1
End Sub
Sub RechercheV_Article1()
Dim Lg%

Lg = Sheets("Stock").Range("a65536").End(xlUp).Row
Range("d4") = Application.VLookup(Range("a4"), Sheets("Stock").Range("a1:r" & Lg), 2, 0)

If IsError(Range("d4")) Then Range("d4") = ""
End Sub