Sub efface_mot()
Dim feuil As Worksheet, Mot As Variant, Replace As Variant
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
If Mot = "" Then Exit Sub
ActiveSheet.Cells.Replace What:=Mot, Replacement:=Replace
End Sub