Private Sub Bouton_Valider_Click()
Dim Formule, Message As String, Réponse As Integer
'Contrôles
If Not Len(Me.TB_bs.Value) > 0 Then
Message = "Veuillez entrer un numero de Sortie valide !"
Réponse = MsgBox(Message, vbOKOnly + vbInformation, "Controle de saisie")
Me.TB_bs.SetFocus
Exit Sub
.....
.
.
Call Vérifier_Quantité_Sortie