XL 2016 msg d'erreur VBA si valeur introuvable

Bonjour,

J'aimerais savoir si quelqu'un de vous aurez un peu plus d'expérience que moi en VBA.

Je m'explique :
J'ai réaliser un userform pour effectuer une recherche de production par rapport à un numéro de lot.
J'aimerais tous simplement que la recherche s'effectue pendant 40 secondes max et si il ne trouve pas il m'affiche un message d'erreur affichant "le numéro de lot n'existe pas ou est introuvable"

Voici le code de mon Userform :



Private Sub UserForm_Initialize()
Me.Message_lbl = "Veuillez inscrire le numéro de lot concernant la production à rechercher"
End Sub



Private Sub lenumerodelot_Change()

'se positionner'

Feuil3.Activate

Range("H5").Select
'on boucle tous les lots de la colonne H'
Do Until ActiveCell = CLng(Me.lenumerodelot)
ActiveCell.Offset(1, 0).Select
Loop

Me.lesdates = ActiveCell.Offset(0, -7)
Me.les_operateurs = ActiveCell.Offset(0, 21)
Me.qualiteprogramee = ActiveCell.Offset(0, -6)
Me.matierepremiere = ActiveCell.Offset(0, -4)
Me.laquantite = ActiveCell.Offset(0, -1)
Me.expansionunoudeux = ActiveCell.Offset(0, 1)
Me.expanseurlist = ActiveCell.Offset(0, 3)
Me.heurededebut = ActiveCell.Offset(0, 4)
Me.heuredefin = ActiveCell.Offset(0, 5)



End Sub

Private Sub btn_fermer_Click()
Unload Me

End Sub



Merci à vous je cela fait pas mal de temps que je bloque sur ce point.