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 : Sélectionner tout - Visualiser dans une fenêtre à part
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