Private Sub UserForm_Initialize()
Dim tablo(), lig As Byte, n As Byte
For lig = 5 To 9 Step 2
ReDim Preserve tablo(2, n) 'tableau de [COLOR="red"]3 lignes[/COLOR], nombre de colonnes ajustable
tablo(0, n) = Cells(lig, 2)
tablo(1, n) = Cells(lig, 3)
tablo(2, n) = Cells(lig, 4)
n = n + 1
Next
[COLOR="Red"]ListBox1.List = Application.Transpose(tablo)[/COLOR]
End Sub