Bouton à option

Bonjour,

J'ai un Userform qui contient 30 boutons à options. J'aimerais les remplir les .caption avec des valeurs dans la case "A9" à "A39".

Puis, une fois le userform validé, j'aimerais connaître quel bouton à été activé parmi les 30 ?

Je m'imagine qu'avec un Select Case je pourrais y arriver, mais serait-il possible d'y arriver d'une façon plus effiace ?

J'ai essayé avec :

i=9
For Each j In Controls
    'If j = 31 Then Exit For
    j.Caption = Feuil4.cells(i,1).value

    i = i +1
Next j

Mais le problème, c'est que je parcours aussi mon titre et mes autres choses dans mon userform. Cela ne change pas seulement les boutons à option.

Pourriez-vous m'aider ??

Merci !

Pour ceux que ca pourrait aider, voìlà comment je m'y suis prit pour trouver quel bouton était coché:

Public Sub Bouton_valider_Click()
'Trouve quel bouton est activé et stock la valeur associée dans une 
'variable public (Famille)
For Each Ctr In Me.Controls
    If TypeOf Ctr Is MSForms.OptionButton Then
        bouton = bouton + 1
        somme = somme + Ctr.Value

        If somme = -1 Then
            famille = Feuil4.Cells(9 + bouton - 1 , 1)
            Exit For
        End If

    End If
Next Ctr
End If

et voici comment les remplir :

'Rempli les .captions des boutons à option
For Each Ctr In Me.Controls
    If TypeOf Ctr Is MSForms.OptionButton Then

        Ctr.Caption = Feuil4.Cells( j+9, 1) & " - " & Feuil4.Cells(9+ j, 2).Value

        'Grise les boutons vides
        If IsEmpty(Feuil4.Cells(9 + j, 1)) Then
            Ctr.Enabled = False
        Else
            Ctr.Enabled = True
        End If

        j = j + 1
    End If
Next Ctr