Validation auto

Bonjour, Bonjour,
Encore besoin de vous

Voilà, je dois rentrer une référence à chercher en "e17" sous forme alpha-numérique puis le programme ci-dessous. Mais volà je dois valider par "enter" avant de pouvor utiliser mon bouton "recherche" (hélas)
Peut-on valider la frappe en "e17" sans avoir à valider par "enter"
En fait je souhaiterais que mon bouton "recherche" serve de validation en même temps
Je ne sais pas si je suis bien clair
Voici mon pas de programme :

Sub recherche()
cherche = Range("e17").Value
With Worksheets("Casier").Range("a14:a80")
Set cellulecherchee = .Find(What:=cherche, _
LookIn:=xlValues, LookAt:=xlWhole)
If cellulecherchee Is Nothing Then
MsgBox "Casier pas trouvé"
Else
Lignecherche = cellulecherchee.Row
Colcherche = cellulecherchee.Column + 1
totocherche = Worksheets("casier").Cells(Lignecherche, Colcherche).Value
Worksheets("menu").Range("d19") = totocherche
End If
End With

End Sub

merci à tous et @++