.../...
Dim Ctrl As Control, NomCtrl As String
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then
NomCtrl = Ctrl.Name
If Ctrl.Value = True Then Exit For
End If
Next Ctrl
Select Case NomCtrl
Case "OptionButton1"
'Ton code 1
Case "OptionButton2"
'Ton code 2
Case "OptionButton3"
'Ton code 3
End Select
.../...