Petit bug sur tableau mais je trouve pas pourquoi

Bonjour,
je suis entrain de faire un tableau en vba et je rencontre une difficultés au moment de l'utiliser en voici la raison :

une base de donnée avec nom /prénom /num de badge/tel entre ces colonnes d'autres données (adresse postal , courriel,...)

voici mon code :

Option Explicit
Option Compare Text
Private x As Variant
Private pl As Range
Private cel As Range
Private nl As Long
Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub CommandButton1_Click()
' Valider
Dim dest As Range
With Sheets("BD")
    If nl = 0 Then
      
        Set dest = .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Else
        Set dest = .Cells(nl, 1)
    End If
End With
For x = 1 To 6
     dest.Value = Me.Controls("TextBox1").Value
     dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
 Next x
Unload Me
userform1.Show
End Sub

Private Sub ComboBox1_Change()

  Me.ListBox1.Clear
  For Each cel In pl
    If CStr(cel.Value) = CStr(Me.ComboBox1.Value) Then
      nl = cel.Row
      With Me.ListBox1
        .AddItem Sheets("BD").Cells(cel.Row, 1)
        .List(.ListCount - 1, 1) = Sheets("BD").Cells(nl, 2)
        .List(.ListCount - 1, 2) = nl
      End With
    End If
  Next cel
  If Me.ListBox1.ListCount = 1 Then Me.ListBox1.ListIndex = 0
End Sub

Private Sub ListBox1_Click()
 
  nl = Me.ListBox1.Column(2, Me.ListBox1.ListIndex)
  For x = 0 To 7
    Me.Controls("TextBox" & x + 1).Value = Sheets("BD").Cells(nl, 1 + x)
  Next x
  
  With Me.TextBox1
   ' .SetFocus
    .SelStart = 0
    .SelLength = Len(.Value)
  End With
End Sub

Private Sub OptionButton2_Click()
ComboBox1.Visible = True
Call obG1
End Sub

Private Sub OptionButton3_Click()
ComboBox1.Visible = True
Call obG2
End Sub

Private Sub OptionButton4_Click()
ComboBox1.Visible = True
Call obG2
End Sub

Private Sub CommandButton2_Click()
 Unload Me
End Sub

Private Sub OptionButton1_Click()
ComboBox1.Visible = True
Call obG1
End Sub

Private Sub obG1()
Dim col As Variant
Dim dico As Object
Dim tbl As Variant
Dim I As Variant
Dim j As Variant
Dim temp As Variant

userform1.ComboBox1.Clear
col = IIf(userform1.OptionButton2.Value = True, 7, 1)
With Sheets("BD")
    Set pl = .Range(.Cells(2, col), .Cells(Application.Rows.Count, col).End(xlUp))
End With

Set dico = CreateObject("scripting.dictionary")
For Each cel In pl
    dico(cel.Value) = ""
Next cel
tbl = dico.keys

For I = 0 To UBound(tbl, 1)
For j = 0 To UBound(tbl, 1)
        If tbl(I) < tbl(j) Then
            temp = tbl(I)
            tbl(I) = tbl(j)
            tbl(j) = temp
        End If
    Next j
Next I
userform1.ComboBox1.List = tbl
End Sub

Private Sub obG2()
Dim col As Variant
Dim dico As Object
Dim tbl As Variant
Dim I As Variant
Dim j As Variant
Dim temp As Variant

userform1.ComboBox1.Clear
col = IIf(userform1.OptionButton4.Value = True, 5, 4)
With Sheets("BD")
    Set pl = .Range(.Cells(2, col), .Cells(Application.Rows.Count, col).End(xlUp))
End With

Set dico = CreateObject("scripting.dictionary")
For Each cel In pl
    dico(cel.Value) = ""
Next cel
tbl = dico.keys

For I = 0 To UBound(tbl, 1)
For j = 0 To UBound(tbl, 1)
        If tbl(I) < tbl(j) Then
            temp = tbl(I)
            tbl(I) = tbl(j)
            tbl(j) = temp
        End If
    Next j
Next I
userform1.ComboBox1.List = tbl
End Sub

mon problème est le suivant quant il me renvoie les données sur ma list box, si je clic sur un nom il me met une erreur d'exécution '-2147024809(80070057) objet spécifié introuvable. quant je clic sur débogage il me met sur la partie de code suivante :

 Me.Controls("TextBox" & x + 1).Value = Sheets("BD").Cells(nl, 1 + x)

c'est pourtant correcte .... à l'aide ! ! !