Oups, je m'aperçois que je ne répondais pas exactement à ta question....
>EX:La cellule A1 contient le texte "couleur rouge".
>Comment trouver le mot rouge dans la cellule?
Voici donc :
msgbox InStr(sheets(1).range("A1").value,"rouge")
te donnera 7 car "rouge" commence au 7ème caractère.
ou
If Sheets(1).Range("A1").Value Like "*rouge*" Then MsgBox "Le mot ""rouge"" est bien contenu dans A1 !"
ou bien encore,
If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1"), "*rouge*") Then MsgBox "Le mot ""rouge"" est bien contenu dans A1 !"
Cordialement.
Didier