ListBox1.ColumnCount = 4 'Nombre de colonnes
'---------
ListBox1.AddItem Cells(ligne, 1) 'Inscrit dans la listbox le data colonne 1
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(ligne, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(ligne, 4)