Find, aucun résultat trouvé

Bonjour,
Je voudrais que si la valeur recherché n'est pas trouvé alors une message box apparaît et indique aucun résultat, merci d'avance

code :

Private Sub ModifierDonnées_Click()

Recherche = Range("A2:A999").Find(NomLivreBox.Value).Row

Cells(Recherche, 1) = NomLivreModifiéBox.Value
Cells(Recherche, 2) = NomAuteurModifiéBox.Value
Cells(Recherche, 3) = RésuméModifiéBox.Value
Cells(Recherche, 4) = GenreModifierListBox.Value

End Sub