Actualiser des champs textbox d'un userform depuis une listbox

Private Sub ListBox_Click()
     'Lorsque tu clique sur ta listBox...
     'remplir les champs vides
End Sub

ThisWorkbook.Worksheets("Données produit").Activate
'"Données produit" correspond
'au nom qui a été donné à la feuille
'contenant les données des produits

'permet de parcourir toute la feuille jusqu'à la dernière cellule
For i = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 
       'Ensuite on regarde si le nom du produit sélectionné se trouve 
       'dans    la colonne "A" de la feuille:
       'Si la selection ListBox == une valeur dans le parcours de ma feuille Alors
        If (ListBox.List(ListBox.ListIndex,0) == Range("A" & i).Value ) Then
                 'ListBox.List(ListBox.ListIndex,0) est la valeur selectionée
                 'Range("A" & i).Value est la valeur de la celleule lue dans la
                 'colonne A de la feuille

                'je vous conseille de débuger avec des
                'MsgBox() pour vérifier le fonctionnement du If

                'une fois que le If est Vrai:
                TextBox.text = la valeur d'une autre colonne (référence par exemple)
                'La valeur se récupère aussi avec un Range("B"&i).Value (qui correspond à une cellule)
        End If
Next

Private Sub ListBox1_Click()
Dim Lign As Integer

If ListBox1.ListIndex = -1 Then Exit Sub
With Sheets("Donnees")
    Lign = .Columns(2).Cells.Find(ListBox1.List(ListBox1.ListIndex)).Row
    TextBox1 = .Range("A" & Lign)
    TextBox2 = .Range("C" & Lign)
    TextBox3 = .Range("D" & Lign)
    TextBox4 = .Range("F" & Lign)
    TextBox5 = .Range("H" & Lign)
    TextBox6 = .Range("K" & Lign)
    TextBox7 = .Range("I" & Lign)
    TextBox8 = .Range("J" & Lign)
End With
End Sub