Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Value) = False Then
MsgBox ' Vous devez entrer un nombre entier !', vbOKOnly + vbInformation
TextBox1.Value = ''
Cancel = True
Else
If Not (TextBox1.Value / 1 = TextBox1.Value \\ 1) Then
MsgBox ' Vous devez entrer un nombre entier !', vbOKOnly + vbInformation
TextBox1.Value = ''
Cancel = True
Else
TextBox1.Value = Format(TextBox1.Value, '0000')
End If
End If
End Sub