formulaire de saisie, combobox fonctionne pas

Private Sub PRENOM_enfant_click()
  For i = 2 To f.[B65000].End(xlUp).Row
     If f.Cells(i, "a") = Me.Nom_enfant And f.Cells(i, "b") = Me.Prenom_enfant Then
       ligne = i
       For Each c In Me.Controls
        nom_control = c.Name
        col = Application.Match(nom_control, [titre], 0)
        Select Case TypeName(c)
          Case "TextBox"
             Me(nom_control) = f.Cells(ligne, col)
          Case "CheckBox"
            
          Case "Frame"
            For Each opt In c.Controls
             If f.Cells(ligne, col) = opt.Caption Then opt.Value = True
            Next opt
        End Select
      Next c
    End If
  Next i
  'Me.Combobox_NOM_FAMILLE.Locked = True
End Sub

Private Sub BT_MODIFIER_Click()
  If MsgBox("Etes-vous certain de vouloir modifier ce contact ?", vbYesNo, "Demande de confirmation") = vbYes And ligne > 1 Then
        For Each c In Me.Controls
        nom_control = c.Name
        col = Application.Match(nom_control, [titre], 0)
        Select Case TypeName(c)
          Case "TextBox", "ComboBox"
             tmp = Me(nom_control)
             If IsNumeric(tmp) Then tmp = Val(tmp)
             If IsDate(tmp) Then tmp = CDate(tmp)
             f.Cells(ligne, col) = tmp
          Case "CheckBox"

          Case "Frame"
            For Each opt In c.Controls
             If opt.Value = True Then f.Cells(ligne, col) = opt.Caption
            Next opt
        End Select
      Next c
     Unload Me 'Ferme le formulaire
  End If
End Sub

 For Each c In Me.Controls
       nom_control = c.Name
            col = Application.Match(nom_control, [titre], 0)
        Select Case TypeName(c)
          Case "TextBox"
             Me(nom_control).Value = ""
          'Case "CheckBox"
            
          Case "Frame"
            For Each opt In c.Controls
            opt.Value = True
            Next opt
        End Select
      Next c

Private Sub B_raz_Click()
  Dim c As Control
  For Each c In Me.Controls
    Select Case TypeName(c)
       Case "TextBox"
          c.Value = ""
       Case "CheckBox"
          c.Value = False
       Case "ListBox", "ComboBox"
          c.ListIndex = -1
       Case "Frame"
          For Each b In c.Controls
            If TypeName(b) = "OptionButton" Then b.Value = False
          Next b
     End Select
   Next c
End Sub

Private Sub Nom_Enfant_click()
Dim c As Control
  Me.Prenom_Enfant.Clear
 For Each c In Me.Controls
    Select Case TypeName(c)
       Case "TextBox"
          c.Value = ""
       Case "CheckBox"
          c.Value = False
       Case "ListBox", "ComboBox"
          c.ListIndex = -1
       Case "Frame"
          For Each b In c.Controls
            If TypeName(b) = "OptionButton" Then b.Value = False
          Next b
     End Select
   Next c
  a = f.Range("A2:B" & f.[B65000].End(xlUp).Row).Value
  Dim b(): ReDim b(1 To UBound(a))
  j = 0
  For i = 1 To UBound(a)
     If a(i, 1) = Me.Nom_Enfant Then j = j + 1: b(j) = a(i, 2)
  Next i
  ReDim Preserve b(1 To j)
  Call Tri(b, LBound(b), UBound(b))
  Me.Prenom_Enfant.List = b
End Sub

Private Sub Nom_Enfant_click()
  raz2
  a = f.Range("A2:B" & f.[B65000].End(xlUp).Row).Value
  Dim b(): ReDim b(1 To UBound(a))
  j = 0

Sub raz2()
  Dim c As Control
  For Each c In Me.Controls
   If c.Name <> "Nom_Enfant" Then
    Select Case TypeName(c)
      Case "TextBox"
        c.Value = ""
      Case "CheckBox"
        c.Value = False
      Case "ListBox", "ComboBox"
        c.ListIndex = -1
      Case "Frame"
        For Each K In c.Controls
          If TypeName(K) = "OptionButton" Then K.Value = False
         Next K
      End Select
    End If
 Next c
End Sub