Sub Suppr()
If Range("d1") <> "" Then
Application.ScreenUpdating = False: On Error Resume Next
With Intersect(Columns(1), Me.UsedRange)
.Replace What:=Range("d1").Value, Replacement:="#N/A", LookAt:=xlWhole, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
End If
End Sub