remplir des textbox avec données venant de 2 feuilles

Private Sub ListBox1_Click()
    Sheets("Feuil2").Select
    Dim c  As Range
    With Sheets("Feuil2")
        ligneselfact = ListBox1.ListIndex + 1
        TextBox1 = Range("A" & ligneselfact).Value          'Afficher données correspondantes à la facture
        TextBox6 = Range("C" & ligneselfact).Value
        TextBox7 = Range("E" & ligneselfact).Value
        TextBox8 = Range("F" & ligneselfact).Value
 
    End With
    Set c = Sheets("Feuil1").Range("A:A").Find(what:=TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, MatchCase:=True)
    If Not c Is Nothing Then
        TextBox2 = c(1, 2)
        TextBox3 = c(1, 3)
        TextBox5 = c(1, 4)
    End If
End Sub