recherche par nom et prénom

Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  tblBD = Range("A2:G" & [A65000].End(xlUp).Row).Value      ' BD
  n = f.[A65000].End(xlUp).Row - 1
  ReDim choix1(1 To n)
  For i = 1 To n
   choix1(i) = tblBD(i, 1) & " " & tblBD(i, 2)
  Next i
  Me.ChoixNom.List = choix1
End Sub

Private Sub Choixnom_Change()
  If Me.ChoixNom.ListIndex = -1 And IsError(Application.Match(Me.ChoixNom, choix1, 0)) Then
   Me.ChoixNom.List = Filter(choix1, Me.ChoixNom.Text, True, vbTextCompare)
   Me.ChoixNom.DropDown
  Else
    ChoixNom_click
  End If
End Sub

Private Sub ChoixNom_click()
 'on récupère tous les champs
 For i = 1 To UBound(choix1)
  If tblBD(i, 1) & " " & tblBD(i, 2) = ChoixNom Then
    ligneEnreg = i
    Me.Controls("TextBox1") = tblBD(ligneEnreg, 1)
    Me.Controls("TextBox2") = tblBD(ligneEnreg, 2)
    For k = 3 To 7
        Me.Controls("TextBox" & k) = tblBD(ligneEnreg, k)
      Next k
    End If
  Next i
End Sub