Private Sub UserForm_Activate()
Dim i As Long, C As Long,tablo
With ListBox1
.ColumnCount = 15
ReDim tablo(1, 15)
.List = tablo: .Clear
For i = 0 To 9
.AddItem ""
For C = 0 To 14
.List(i, C) = "Ligne" & i + 1 & " Col" & C + 1
Next
Next
End With
End Sub