Gestion Erreur dans un userform

Bonjour

J'ai un userform dont je veux absolument que l'utilisateur coche les boutons, j'ai donc mis un msgbox en cas d'oubli, il fonctionne bien, mais cela ferme le userform sans attendre que l'utilisateur ait corrigé.

j'ai mis mon Si dans le bouton Ok, car si je le mets dans la frame des boutons, je n'ai même pas le msgbox, puisque l'utilisateur ne clique pas sur le frame

Merci de bien vouloir m'aider, ci joint un fichier ex.

Bonjour

A tester

Private Sub CmbOk_Click()
  If Opb_Mme = False And Opb_M = False Then
    MsgBox "Remplir la civilité," & Chr(10) & "Merci"
    Exit Sub
  End If
  If OpbAg1 = False And OpbAg2 = False And OpbAg3 = False Then
    MsgBox "Remplir la catégorie d'age, svp" & Chr(10) & "Merci"
    Exit Sub
  End If

  Range("B1") = TxbNom
  Range("B2") = TxbAd
  If Opb_Mme = True Then
    Range("A1") = "Mme"
  Else
    Range("A1") = "M"
  End If

  If OpbAg1 = True Then
    Range("A5") = "Moins de 6 ans"
  ElseIf OpbAg2 = True Then
    Range("A5") = "Entre 6 et 18 ans"
  ElseIf OpbAg3 = True Then
    Range("A5") = "Majeur"
  End If
  Unload Me
End Sub

Bonjour Banzai64,

Que ferai-je sans toi ?

c'est parfaitement ce qu'il me fallait.

Merci encore de t'occuper de moi...