Sub AutorisationExamen()
MsgBox "Merci de remplir le questionnaire suivant", vbInformation, "Bienvenu"
If MsgBox("Avez-Vous plus de 25 ans ?", vbYesNo + vbExclamation, "Votre Age") = vbNo Then
MsgBox "Il faut avoir plus de 25 ans pour être accepté !", vbCritical, "ACCEPTATION": Exit Sub
End If
If MsgBox("Votre Nationalité est FRANCAISE ?", vbYesNo + vbExclamation, "NATIONALITE") = vbNo Then
MsgBox "Il faut être de nationalité Française pour être accepté !", vbCritical, "ACCEPTATION": Exit Sub
End If
If MsgBox("Avez-Vous un casier judiciaire ?", vbYesNo + vbExclamation, "JUSTICE") = vbYes Then
MsgBox "Il ne faut pas avoir de casier judiciaire pour être accepté !", vbCritical, "ACCEPTATION"
End If
End Sub