Private Sub CMDOK_Click()
Dim tailleTexte, messageErreur As Integer
tailleTexte = ChoisirOptions.TextBox1.TextLength
If Refusé.Value = False Then
ElseIf tailleTexte <> 13 Then
'si la taille du texte est différente de 13, la couleur de fond de la zone devient rouge, un message d'erreur apparait et la macro est arrêtée
ChoisirOptions.TextBox1.BackColor = 192
messageErreur = MsgBox("Attention, vous n'avez pas saisi le bon nombre de caractères. Veuillez rectifier", vbCritical + vbOKOnly, "Erreur nombre de caractères")
Exit Sub
Else
'sinon, tout va bien, la macro continue
ChoisirOptions.TextBox1.BackColor = 15204351
End If
Unload ChoisirOptions
Dim CMDOK As String
Etc etc