Option Explicit
Option Compare Text
Sub Remplacer()
Dim c As Range, mot1, mot2
mot1 = InputBox("Saisir la valeur initiale", "Remplacer...")
If mot1 = "" Then Exit Sub
mot2 = InputBox("Saisir la valeur souhaitée", "Remplacer...")
For Each c In Selection.SpecialCells(xlCellTypeConstants)
If c = mot1 Then c = mot2
Next
End Sub