XL 2013 colonne de feuille en textbox d'après choix listbox

Private Sub List_Produits_Click()

Dim I As Long

    If List_Produits.ListCount > 0 Then
        For I = 0 To List_Produits.ListCount - 1
            If List_Produits.Selected(I) = True Then
               TextBox1 = List_Produits.List(I, 0)
               'Range("t_Produits").Rows(I + 1).Select
            End If
        Next I
   
     End If

End Sub