Sub ChercheEtRemplace()
Dim Cel As Range
'
On Error Resume Next
' Chercher la valeur dans la colonne A et B
Set Cel = Range("A:B").Find(What:="res", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
' Si la cellule a été trouvée
If Not Cel Is Nothing Then
' on remplcae le contenu
Cel.Replace What:="res", Replacement:="toto", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
' On efface la variable objet
Set Cel = Nothing
End Sub