Recherche d'un mot dans une cellule VBA

Bonjour,
J'aimerais savoir comment on peut chercher un mot en particulier dans une cellule. Par exemple, dans la cellule il y a "fournisseur voiture paris" et le code incrémenterait un compteur si le mot "paris" est présent.
J'ai trouvé des lignes de codes qui font ce que je demande mais en comparant par rapport à une autre cellule, or moi j'aimerais si c'est possible juste avec du code VBA.
Merci.

Bonjour

tu pourrais utiliser la fonction LIKE

Code:

---

If Range("A1") Like "*paris*" Then MsgBox "gagné"

---

attention sensible à la casse ! pour éviter au cas où

Code:

---

If UCase(Range("A1")) Like "*PARIS*" Then MsgBox "gagné"

---

Bonjour,

on peut également s'orienter :

1) sur la fonction Instr()

2) (mieux) sur l'utilisation d'un Find (en XlPart) et d'une findnext pour remonter toutes les occurrences sans boucler cellule à cellule