Dim Recherche As String Recherche = InputBox("Formulaire Rechercher", "Entrer un Matricule", ) If vbOK = True Then If InputBox(Text = "") Then MsgBox(" Champ vide") End If If Not IsNumeric(Recherche) Then MsgBox("Une valeur numérique est requise !") End If End If If vbCancel = True Then Me.Close() End If