Code VBA pour rechercher une cellule contenant un texte precis

Bonjour à tous,

J'ai programmer le code suivant pour récupérer le Numéro de ligne d'une cellule contenant un texte précis dans une colonne donnée... Le code me retourne une erreur 91 que je n'arrive pas à corriger.

Dim Cellule As Range
Dim Ligne As Integer
Cellule = Sheets("Feuill1").Range("G:G").Find("TexteAtrouver", LookAt:=xlWhole)
Ligne = Cellule.Row

Pour avancer dans mon code j'ai fait une boucle while qui lit toutes les cellules de la colonne jusqu’à trouver le texte, mais je souhaitais utiliser la méthode Find qui me parait bien appropriée.

Merci

Nicolas

Bonjour Nicosauv, bonjour le forum,

La variable Cellule étant une variable objet il manque juste un Set devant...

Dim Cellule As Range
Dim Ligne As Integer

Set Cellule = Sheets("Feuill1").Range("G:G").Find("TexteAtrouver", LookAt:=xlWhole)
Ligne = Cellule.Row

Merci beaucoup... Ça fonctionne parfaitement