XL 2010 erreur 1004 avecfind

Zoulou17 à dit:

hello à tous et d'avance merci de votre aide

j'ai récupére un bout de script pour la fonction find
celle ci fonctionnait tres bien mais j'ai du faire qqch qui la fait maintenant planter

VB:

Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

'********* à adapter ***********
Valeur = Userform1.textbox1.value
Set PlageDeRecherche = Sheets("Feuil1").Columns(2)
'*******************************

'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)

Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur, LookAt:=xlWhole)

cella me met une erreur 1004 : erreur définie par l'application ou par un objet

Cliquez pour agrandir...