Vba, fonction find bis

Bonjour,
Je voudrais sur vba, accorder plusieurs résultat avec la fonction find, en effet mon problème etant que si je ne tape pas le nom entier alor il m'affiche dans ma textbox le résultat le plus près...
Merci d'avance
Voici le code :
Private Sub Rechercher_Click()

Dim Recherche As Long

On Error Resume Next
Recherche = Range("A2:A999").Find(NomLivreBox.Value).Row
If Err.Number > 0 Then
Rep = MsgBox("Aucun résultat trouvé, veuillez vérifier que le nom est bien écrit...", vbCritical + vbOKOnly, "Aucun Résultat Trouvé")
NomLivreBox.SetFocus
Exit Sub
Else
If NomLivreBox = "" Then
Rep = MsgBox("Veuillez d'abord taper le nom du livre a chercher...", vbCritical + vbOKOnly, "Attention")
Else
NomLivreTrouvéBox.Value = Cells(Recherche, 1)
NomAuteurTrouvéBox.Value = Cells(Recherche, 2)
RésuméTrouvéBox.Value = Cells(Recherche, 3)
GenreTrouvéListBox.Value = Cells(Recherche, 4)

UserForm1.NomLivreTrouvéBox.Visible = True 'TextBox correspondant au résultat de la recherche'
UserForm1.NomLivreTrouvé.Visible = True 'Label Nom Du Livre Trouvé Apparaît'
UserForm1.NomLivreTrouvéBox.Visible = True 'TextBox correspondant au nom du livre Trouvé'
UserForm1.NomAuteurTrouvéBox.Visible = True 'TextBox correspondant au résultat de la recherche du nom du livre'
UserForm1.NomAuteurTrouvé.Visible = True 'Label " Nom de l'auteur trouvé" Apparaît '
UserForm1.GenreTrouvéListBox.Visible = True 'ComboBox correspondant au genre que l'utilisateur veut modifier'
UserForm1.GenreLivreTrouvé.Visible = True 'Label "Genre Du Livre Trouvé" '
UserForm1.RésuméTrouvé.Visible = True 'Label "Résumé Trouvé" '
UserForm1.RésuméTrouvéBox.Visible = True 'TextBox correspondant au résumé'
UserForm1.NomAuteurModifié.Visible = True 'Label "Nom De L'Auteur Modifié" '
UserForm1.NomAuteurModifiéBox.Visible = True 'TextBox correspondant a la modification du nom de l'auteur"
UserForm1.NomLivreModifié.Visible = True 'Label "Nom Du Livre Modifié" '
UserForm1.NomLivreModifiéBox.Visible = True 'TextBox correspondant a la modification du nom du livre'
UserForm1.RésuméModifié.Visible = True 'Label "Résumé Modifié" '
UserForm1.RésuméModifiéBox.Visible = True 'TextBox correspondant a la modification du résumé'
UserForm1.GenreLivreModifier.Visible = True 'Label "Genre Livre A Modifier" '
UserForm1.GenreLivreTrouvé.Visible = True 'Label correspondant au résumé'
UserForm1.ModifierDonnées.Visible = True 'Bouton Modifier Données'
UserForm1.GenreModifierListBox.Visible = True 'ComboBox correspondant au genre que l'utilisateur veut modifier'

UserForm1.NomLivreModifiéBox.Text = "Ecrivez ici le nouveau nom à attribué au livre..."

End If
End If
On Error GoTo 0

End Sub