recherche formule

Bonjour le fil
J'ai un probléme de Vba recherche.
Je voudrais recuperer un mot par rapport un numero taper dans useform
Ci-joint le le code
merci

Sub rechercheprod()

Dim Nprod As String

Dim Nomprod As String
Dim Nomtech As String
Dim trouve As Range
Dim rechercheprod As Range

Set plagederecherche = Sheets("listeprod").colummns1
Set trouve = plagederecherche.Cells.Find(what:=Nprod, lookat:=xlWhole)
If trouve Is Nothing Then

If trouve = Nprod Then
Nomprod = sheeps("listeprod").Cells(ligne.trouve, 2)
Nomtech = sheeps("listeprod").Cells(ligne.trouve, 3)
Call majfenetre
End If

Set plagederecherche = Nothing
Set trouve = Nothing


End Sub

Sub majfenetre()
ficheentree.Nomprod.Text = Nomprod
ficheentree.Nomtech.Text = Nomtech

End Sub