Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
'Définit le nombre de colonnes dans la ListBox
ListBox1.ColumnCount = 7
'---
'Définit la largeur des colonnes d'une ListBox:
'Par défaut, la largeur des colonnes est de 72 points
'(72 points = 1 pouce)
ListBox1.ColumnWidths = "50;80;50;60;50;70;50"
'---
'Il est aussi possible de définir la dimension des colonnes en centimètres
'ListBox1.ColumnWidths = "2 cm; 1,5 cm ......"
'---
'---
For i = 1 To 20
'Ajoute une ligne et insère une donnée dans la première colonne
ListBox1.AddItem "Ligne" & i
'Ajoute des données dans les autre colonnes
For j = 1 To 7
ListBox1.List(ListBox1.ListCount - 1, j) = i & j
Next j
Next i
End Sub