Problème Find vba

Bonjour,

j'ai quelque problème avec "find":

Private Sub Rechercher_Click()

Dim PlageLivre As Range
Dim PlageAuteur As Range

Set PlageLivre = Range("A2", "A999")



NomLivreRechercherBox.Visible = True 'TextBox correspondant au résultat de la recherche'

NomLivreRechercherBox.Value = PlageLivre.Find(RechercheBox.Value, "A2", xlValue)

End Sub

Je n'arrive pas faire en sorte que si cette fonction trouve le nom que l'utilisateur indique alors il le place de sorte a se que par la suite l'utilisateur puisse le modifier...

merci d'avance et désolé si je ne suis pas clair mais je ne sais pas comment expliquer mon cas ^^