Afficher dans un UserForm les cellules de ma base de données

'********************
'* UserForm cleints *
'********************
Option Explicit
Private ws As Worksheet
Private TV As Variant 'déclare la variable TV (Tableau des Valeurs)

Private Sub UserForm_Initialize()
'********************************************
'* initialise le formulaire données clients *
'********************************************

Dim NL As Integer 'déclare la variable NL (Nombre de Lignes)
Dim NC As Integer 'déclare la variable NC (Nombre de Colonnes)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)

Set ws = Sheets("données_clients") 'Correspond au nom de votre onglet dans le fichier Excel
TV = ws.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
NL = ws.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit le nombre de lignes NL
NC = UBound(TV, 2) 'définit le nombre de colonnes NC
Me.ListBox1.ColumnCount = NC 'définit le nombre de colonnes de la listBox1
K = 1 'initialise la variable K
For I = 3 To NL 'boucle 1: de la ligne 3 à la ligne NL
    ReDim Preserve TL(1 To NC, 1 To K) ',redimensionne le tableau de lignes TL
    For J = 1 To NC 'boucle 2 : sur toutes les colonnes du tableau de valeurs TV
        TL(J, K) = TV(I, J) 'renvoie ligne J colonne K de TL la valeur ligne I colonne J de TV (= Tranposition)
    Next J 'prochaine colonne de la boucle 2
    K = K + 1 'incrémente K (ajoute une colonne à TL
Next I 'prochaine ligne de la boucle 1
If K > 1 Then 'condition : si K est supérieur à 1 (si la liste contient au moins une ligne)
    If K = 2 Then ReDim Preserve TL(1 To NC, 1 To 2) 'si la liste ne contient qu'une seule ligne redimensionne TL pour permettre la transposition
    Me.ListBox1.List = Application.Transpose(TL) 'alimente la Listbox1 avec le tableau TL ransposé
End If 'din de la condition

ComboBox3.ColumnCount = 1 'Pour la liste déroulante Civilité
ComboBox3.List() = Array("", "M.", "Mme", "Mlle")
With Me.ComboBox2
    For I = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem ws.Range("A" & I)
    Next I
End With
For J = 1 To 7
    Me.Controls("TextBox" & J).Visible = True
Next J
End Sub

Private Sub ListBox1_Click() 'au clic dans la ListBox1
Dim LI As Long 'déclare la varaible LI (LIgne)
Dim I As Byte 'déclare la varaible I (Incrément)

LI = Me.ListBox1.ListIndex + 3 'définit la ligne LI
For I = 1 To 2 'boucle sur les deux ComboBoxes
    Me.Controls("ComboBox" & I + 1).Value = ws.Cells(LI, I) 'alimente la comboBox avec la valeur ligne LI colonne I de l'onglet WS
Next I 'prochaine ComboBox de la boucle
For I = 1 To 7 'boucle sur les sept TextBoxes
    Me.Controls("TextBox" & I).Value = ws.Cells(LI, I + 2).Value 'renvoie dans la TextBox la valeur ligne LI, colonne I+2 de l'onglet WS
Next I 'prochaine TextBox de la boucle
End Sub

Unload Me
UserForm1.Show