recherche et remplace qui ne fonctionne pas

bonjour à tous

je veux simplement modifié les cellules ou le terme "#VALEUR!" est indiqué par Prix
mais lorsque je lance la macro rien ne fonctionne alors que si je le fait sans passez par un code ça fonctionne

Code:

---

1 2 3 4 5 6 7

sub prix() Cells.Select Selection.Replace What:="#VALEUR!", Replacement:="Prix", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

quelqu'un peut-il m'expliquer ou est l'erreur
merci

Si tu as des formules avec le résultat erreur

Code:

---

1 2 3

On Error Resume Next Sheets("Feuil1").UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors) = "Prix" On Error GoTo 0

---

merci
cela résout mon problème