Multiselection OptionButton

Const quoi = "a5;SOS;a10;Help;b5;Au secours;b10;Aidez moi;c10;;d10;Trop tard!"

Option Explicit
Dim colonne, ligne
Const quoi = "a5;SOS;a10;Help;b5;Au secours;b10;Aidez moi;c10;;d10;Trop tard!"

Private Sub CommandButton1_Click()
Dim i&, tabquoi, adr$
tabquoi = Split(UCase(quoi), ";")
adr = UCase(colonne & ligne)
For i = 0 To UBound(tabquoi) - 1 Step 2
  If adr = tabquoi(i) Then
    Range(adr) = tabquoi(i + 1)
    Exit For
  End If
Next i
  Unload Me
End Sub

Private Sub activer()
Dim i&
  For i = 1 To 4
    If Me.Controls("OptionButton" & i) Then colonne = Me.Controls("OptionButton" & i).Caption
  Next i
  For i = 1 To 2
    If Me.Controls("OptionButton" & 100 + i) Then ligne = Me.Controls("OptionButton" & 100 + i).Caption
  Next i
  If colonne <> "" And ligne <> "" Then
    CommandButton1.Enabled = True
    CommandButton1.Caption = "Valider le choix"
  End If
End Sub

Private Sub OptionButton1_Click()
    activer
End Sub
Private Sub OptionButton2_Click()
    activer
End Sub
Private Sub OptionButton3_Click()
    activer
End Sub
Private Sub OptionButton4_Click()
    activer
End Sub
Private Sub OptionButton101_Click()
    activer
End Sub
Private Sub OptionButton102_Click()
    activer
End Sub