Sub Remplacer()
Dim c As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
For Each c In Columns("J").SpecialCells(xlCellTypeConstants, 1)
Range("A2:E7").Replace c, "#N/A", xlWhole
c(1, 2).Copy Range("A2:E7").SpecialCells(xlCellTypeConstants, 16)
Next c
End Sub