controler selection OptionButton dans 2 frames differentes

Private Sub CommandButton1_Click()
  If Me.OptionButton1 + Me.OptionButton2 = 0 Then
    MsgBox "Merci de sélectionner une des 2 options"
    Me.Frame1.SetFocus
    Exit Sub
  End If
  If Me.OptionButton3 + Me.OptionButton3 = 0 Then
    MsgBox "Merci de sélectionner une des 2 options"
    Me.Frame2.SetFocus
    Exit Sub
  End If
End Sub

Option Explicit

Private Sub CommandButton1_Click()
Dim cpt As Byte, i As Byte

For i = 1 To 4
    cpt = cpt - (Controls("OptionButton" & i).Value = False)
Next i
If cpt > 2 Then
    Me.Hide
    MsgBox ("Veuillez sélectionner une Option dans chaque Frame")
    UserForm1.Show 0
    Exit Sub
End If
MsgBox "Ok"
End Sub

If Le OptionButton1.Parent.Name = "Frame1" Then