Bonjour,
Sinon une macro pour vérifier la présence d'un mot recherché avec message box vrai ou faux
Sub Macro1()
'
' Macro1 Macro
'
Range("A1").Select
On Error GoTo fin
Cells.Find(What:="TEXTEACHERCHER", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
MsgBox "VRAI"
Exit Sub
fin:
MsgBox "FAUX"
End Sub