Private Sub S_CP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Me.S_CP) Then
MsgBox ("Veuillez saisir des chiffres")
Cancel = True
Me.S_CP.Text = ""
ElseIf Len(Me.S_CP) <> 5 Then
MsgBox ("Vous devez saisir 5 chiffres")
Cancel = True
Me.S_CP.Text = ""
Exit Sub
Else
End If
End Sub