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)
Pas les espaces mais les caractères de tabulation Chr(9) :Question subsidiaire ....
A l’intérieur de cette ListBox, est il possible de 'jouer' sur les espaces entre chaque information
ListBox1.ColumnCount = 2 'Nombre de colonnes
ListBox1.ColumnWidths = 50 'largeur de la 1ère colonne
'---------
ListBox1.AddItem Cells(ligne, 1) 'Inscrit dans la list box le data colonne 1
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2) & Chr(9) & Cells(ligne, 3) & Chr(9) & Cells(ligne, 4)