Private Sub UserForm_Initialize()
Dim tablo
Dim t As String
tablo = Range("a1").CurrentRegion
t = Application.Rept(";20", UBound(tablo, 2))
t = """" & Mid(t, 2) & """"
MsgBox t'pour test
With ListBox1
.ColumnCount = UBound(tablo)
.ColumnWidths = t
.List = tablo
End With
End Sub