Private Sub TxtTel_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.TxtTel) > 0 And Len(Me.TxtTel) < 10 Then
MsgBox "Votre numéro de téléphone doit comporter 10 chiffres", vbInformation + vbOKOnly, "Erreur de frappe"
Cancel = True
End If
Me.TxtTel.Value = Format(Me.TxtTel.Value, "00 00 00 00 00")
End Sub