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