Atteindre une ligne selon critère variable vba

Bonjour, 

J'avais commencé un code VBA pour atteindre la valeur inscrite en B2 dans le tableau se trouvant sur le même classeur :

Private Sub CommandButton1_Click()
Dim Wb As Workbook
Set Wb = Workbooks("TRAME HORS CAISSE LUCAS.xlsm")
Dim LigneCherche
LigneCherche = Wb.Sheets("SUIVI A REMPLIR").Cells.Find(What:=Range("B2").Value).Row
Range("A1").Value = LigneCherche
End Sub

Vu que je ne m'y connais pas tellement en VBA, je n'ai pas réussi à trouver comment faire.

Si possible, je voudrai simplifier l'action en cliquant sur un bouton qui demande quelle valeur rechercher dans la colonne D

Merci 

Bonjour, 

Je souhaiterai que lorsqu'on clique sur le bouton "Recherche client" cela nous sorte un message demandant de renseigner le code client à rechercher puis qu'en cliquant sur rechercher cela nous mène à la ligne où se trouve le code client.

En vous remerciant,