Méthode Find et condition

Bonjour à tous!

Je sollicite encore le forum pour une problématique qui me semble simple mais auquel je ne trouve pas vraiment de réponse.

Je m'explique, je souhaiterai utiliser la méthode Find (ou autre) pour rechercher un élément dans une feuille. S'il est trouvé je lance une macro, s'il n'est pas trouvé je stoppe.

Pièce jointe 204516

Quelqu'un aurait ça sous le coude ?

Merci à vous :)

Hum ça ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim rng As Range   Set rgn = ActiveSheet.Cells   Set rgn = rgn.Find("toto")   If Not rgn Is Nothing Then MsgBox "Trouvé !!!"   End Sub

---

IMPECCABLE ;)

Je t'en remercie !

Bonne journée