aprés sélection dans une listbox, séléction de la case concerner

bonjour à vous,
dans le code ci dessous ( ou en PJ ) je voudrai que le texte sélectionner dans la listbox soit sélectionner dans la feuille "LISTE"en colonne E et non en A, mais je ne parvient pas a modifier le code ?.

merci de votre aide.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub ListBox1_Click()
On Error Resume Next
With ListBox1
Cells(.List(.ListIndex, 1), 1).Select
End With
Unload Me
End Sub
Private Sub TextBox1_Change()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer
Dim C As Object
ListBox1.Clear
Recherche = TextBox1.Value
Range("e1").Select
Ligne = Sheets("LISTE").Range("e" & "65536").End(xlUp).Row
Set Plage = Sheets("LISTE").Range("e" & "2:" & "e" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
With ListBox1
.AddItem C '
.List(.ListCount - 1, 1) = C.Row 'Ajout mDF
End With
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub