besoin d'aide pour voir si je peux simplifier mon code sur des checkbox

'suite de test pour chaque checkbox de la spé 1 et option fac 1
Private Sub Opbhgsp_Change()
    Opbhgspb.Visible = Not (Opbhgsp.Value)
    Opbhgspc.Visible = Not (Opbhgsp.Value)
End Sub
Private Sub Opbhlp_Change()
    Opbhlpb.Visible = Not (Opbhlp.Value)
    Opbhlpc.Visible = Not (Opbhlp.Value)
End Sub

Private Sub Opbllce_Change()
    Opbllceb.Visible = Not (Opbllce.Value)
    Opbllcec.Visible = Not (Opbllce.Value)
End Sub

Private Sub Opbmaths_Change()
    Opbmathsb.Visible = Not (Opbmaths.Value)
    Opbmathsc.Visible = Not (Opbmaths.Value)
End Sub

Private Sub Opbnsi_Change()
    Opbnsib.Visible = Not (Opbnsi.Value)
    Opbnsic.Visible = Not (Opbnsi.Value)
End Sub

Private Sub Opbphysiquechimie_Change()
    Opbphysiquechimieb.Visible = Not (Opbphysiquechimie.Value)
    Opbphysiquechimiec.Visible = Not (Opbphysiquechimie.Value)
End Sub

Private Sub Opbsvt_Change()
    Opbsvtb.Visible = Not (Opbsvt.Value)
    Opbsvtc.Visible = Not (Opbsvt.Value)
End Sub

Private Sub Opbsi_Change()
    Opbsib.Visible = Not (Opbsi.Value)
    Opbsic.Visible = Not (Opbsi.Value)
End Sub

Private Sub Opbses_Change()
    Opbsesb.Visible = Not (Opbses.Value)
    Opbsesc.Visible = Not (Opbses.Value)
End Sub

Private Sub Opbcav_Change()
    Opbcavb.Visible = Not (Opbcav.Value)
End Sub

Private Sub Opbeps_Change()
    Opbepsb.Visible = Not (Opbeps.Value)
End Sub

Private Sub Opblca_Change()
    Opblcab.Visible = Not (Opblca.Value)
End Sub

Option Explicit

Public WithEvents chk_new As MSForms.CheckBox

Private Sub chk_new_Click()
'on rend visible/invisible cette spécialité dans les autres frames
Dim xfrm, ctrl, etat As Boolean, nomOption As String, nomFrame As String
  etat = chk_new.Value    'état de la checkbox sur laquelle on a cliqué
  nomOption = chk_new.Caption     'texte de l'option
  nomFrame = chk_new.Parent.Name  'nom du frame qui contient la checkbox cliquée
  For Each xfrm In Split("espe1 espe2 espe3")   'pour chaque nom de frame
    If xfrm <> nomFrame Then      'si le frame est différent du frame de la checkbox cliquée
      For Each ctrl In inscript1gene.Controls(xfrm).Controls    'pour toutes les checkbox du frame
        'si le c'est la la même option que celle qui a été cliquée
        'on la rend visible ou non (état opposé à la checkbox cliquée)
        If ctrl.Caption = nomOption Then ctrl.Visible = Not etat
      Next ctrl
    End If
  Next xfrm
End Sub

'***********************************************************************************************
Private LesObjetsChk_new() As New class_chk_Specialite

Private Sub UserForm_Initialize()
'on place dans un tableau de type class_chk_Specialite (le tableau est LesObjetsChk_new())
'les checkbox qui représentent les spécialités
'les chexkbox concernés sont ceux contenus dans les trois frames espe1, espe2 et espe3
Dim xfrm, ctrl, i As Long
  For Each xfrm In Split("espe1 espe2 espe3")   ' pour chaque nom de frame
    For Each ctrl In Controls(xfrm).Controls    ' pour chacun des contrôles du frame
      If TypeName(ctrl) = "CheckBox" Then       ' si le type du contrôle est CheckBox
        i = i + 1                               ' on incrémente l'indice supéreiur du tableau
        ReDim Preserve LesObjetsChk_new(0 To i) ' on redimensionne le tableau (+ un élément)
        Set LesObjetsChk_new(i).chk_new = ctrl  ' on affecte au dernier élément du tableau,
                                                ' à sa propriété chk_new la contrôle ctrl
      End If
    Next ctrl
  Next xfrm
End Sub
'***********************************************************************************************