Private Sub CommandButton1_Click()
If Not Civ_Monsieur And Not Civ_Madame Then
MsgBox "Vous devez saisir la civilité !", _
vbCritical + vbOKOnly, "Attention Erreur"
Frame1.SetFocus
Else
If Not Civ_Monsieur Then MsgBox "Madame"
If Civ_Monsieur Then MsgBox "Monsieur"
End If
End Sub