Extraire contenu listbox dans une colonne

Option Explicit

'Importe de la feuille (A1:Axxx) dans la listbox
Private Sub Bouton_Import_De_Feuil_A_ListBox_Click()
ListBox1.List = Range("A1:A" & Columns(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Row).Value
End Sub

'ajoute la valeur du textbox1 en premiere position dans la listbox
Private Sub Bouton_Ajout_ListBox_First_Click()
If TextBox1 <> "" Then ListBox1.AddItem TextBox1, 0
End Sub

'ajoute, à la listbox, la valeur du textbox1 et trie
Private Sub Bouton_Ajout_ListBox_Et_Tri_Click()
If TextBox1 <> "" Then ListBox1.AddItem TextBox1
ListBox1.List = Tri(ListBox1.List)
End Sub
Function Tri(List) 'Tri
'source : http://www.gcexcel.com/trier-les-elements-dans-un-listbox/
Dim Elem
With CreateObject("System.Collections.ArrayList")
    For Each Elem In List
        .Add Elem
    Next
    .Sort
    Tri = .ToArray
End With
End Function

'ajoute la valeur du textbox1 en dernière position dans la listbox
Private Sub Bouton_Ajout_ListBox_Last_Click()
If TextBox1 <> "" Then ListBox1.AddItem TextBox1
End Sub

'Exporte de la listbox dans la feuille (de A1 à Axxx)
Private Sub Bouton_Export_De_ListBox_A_Feuil_Click()
Range("A1:A" & ListBox1.ListCount) = ListBox1.List
End Sub