VBA Remplacer "N/A" par cellule vide

mot ="toto"
For Feuille = 1 To Sheets.Count
    Worksheets(Feuille).Activate
    With Worksheets(Feuille).Range("a1:zz500")
        Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
        If Not trouvé1 Is Nothing Then
            NumRow = trouvé1.Row
            trouvé1.Activate
            trouvé1.value=""
            If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub 'Tu n'est pas obliger de mettre cette ligne
                Set trouvé1 = .FindNext(trouvé1)
                If NumRow < trouvé1.Row Then GoTo étiq

            End If ' si tu as enlever le 1er if, enleve aussi ca
    End With
Next Feuille

end