Sub RechercheV_Article()
Dim Lg%
Lg = Sheets("Stock").Range("a65536").End(xlUp).Row
For i = 3 To Lg
Range("d" & i) = Application.VLookup(Range("a" & i), Sheets("Stock").Range("a1:r" & Lg), 2, 0)
If IsError(Range("d" & i)) Then Range("d" & i) = ""
Next
End Sub