Problème de #N/A lors d'une rechercheV

Bonjour à tous,

j'ai une macro qui fait une recherchev mais elle ne s'arrête pas quand elle arrive en bas du tableau et du coup ca me met des #N/A jusqu'à la fin de Excel ce qui me créer des fichier très lourd...

voila mon code, quelqu'un peut t'il faire en sorte que la recherchev s'arrête dès qu'il n'y plus rien à chercher :

Sub aaadr()
Range("Y1") = "adresse mail commercial"
Dim Z As Long
    Sheets(2).Activate
    Z = Range("Y2").End(xlDown).Row
    Range("Y2:Y" & Z).Formula = "=IF(ISNA(VLookup(B2,'" & Sheets(4).Name & "'!$A$1:$B$20, 2, 0)),"""",VLookup(B2,'" & Sheets(4).Name & "'!$A$1:$B$20, 2, 0))"

On Error Resume Next
Worksheets("DATA").Range("Y:Y").SpecialCells(xlFormulas, xlErrors).EntireRow.delete
On Error GoTo 0
End Sub

merci d'avance,

Jawst

Je propose:

...
Z = Range("B2").End(xlDown).Row

Merci beaucoup Timshel