Remplir listbox avec lignes du fichier

Private Sub ListBox1_Click()

ListBox2.Clear
With Sheets(ListBox1.Text)
        ListBox2.Column = .Range(.Cells(1, 1), .Cells(1, .Cells(1, 256).End(xlToLeft).Column)).Value
End With
End Sub

Cliquez pour agrandir...

Private Sub ListBox1_Click()
Dim c As Range
ListBox2.Clear
With Sheets(ListBox1.Text)
        For Each c In .Range(.Cells(1, 1), .Cells(1, .Cells(1, 256).End(xlToLeft).Column))
                ListBox2.AddItem c
        Next c
End With
End Sub

Cliquez pour agrandir...