Private Sub Visualise_Click()
For Each C In Controle.Controls
If TypeName(C) = "OptionButton" Then
If C.Value = -1 Then
Titre = Switch(C.Caption = "M.", "Monsieur", C.Caption = "Mme", "Madame", C.Caption = "Mlle", "Mademoiselle")
MsgBox Titre [COLOR=Green]'ici pour test donc à supprimer ensuite[/COLOR]
Exit For
End If
End If
Next
Set C = Nothing
End Sub