Private Sub UserForm_Activate()
cls.SetMasktTitle TextBox11, "Nom:"
cls.SetMasktTitle TextBox12, "Prénom:", vbBlue, vbYellow
cls.SetMasktTitle TextBox13, "sexe:"
cls.SetMasktTitle TextBox14, "Age:"
cls.SetMasktTitle TextBox15, "Téléphone:"
cls.SetMasktTitle TextBox16, "Adresse:"
cls.SetMasktTitle TextBox17, "Complement adresse:"
cls.SetMasktTitle TextBox18, "Code postal:"
cls.SetMasktTitle TextBox19, "Ville:"
cls.SetMasktTitle TextBox20, "email:"
End Sub