Case d'option se cochant automatiquement sous condition

' sur les 8 OptionButton :
Private Sub OptionButton1_Click()
    oui2
End Sub

Sub oui2()
    OptionButton9 = -(CLng(OptionButton1) + CLng(OptionButton3) + CLng(OptionButton5) + CLng(OptionButton7)) > 1
End Sub

Private Function varverif() As Boolean
    Dim toto As Integer
    Dim ok As Boolean
    
    ok = False
    
    If OptionButton1 = True Then toto = 1
    If OptionButton2 = True Then toto = toto + 1
    If OptionButton3 = True Then toto = toto + 1
    If OptionButton4 = True Then toto = toto + 1
    If toto > 1 Then ok = True
    varverif = ok

End Function
Private Sub OptionButton1_Click()

    If varverif = True Then OptionButton9.Value = True

End Sub

Private Sub OptionButton2_Click()

    If varverif = True Then OptionButton9.Value = True

End Sub