Sub init()
Dim data As Collection
Dim i As Integer
Dim j As Byte
With UserForm1
.ListBox1.ColumnCount = 3
.ListBox1.ColumnWidths = '60;60;60'
End With
With Sheets('feuil1')
'ne pas oublié de modifier aussi ici
tablo = .Range('A4:AZ' & .Range('AZ65536').End(xlUp).Row)
End With
For i = 1 To UBound(tablo)
On Error Resume Next
data.Add tablo(i, 1), CStr(tablo(i, 1))
On Error GoTo 0
Next i
With UserForm1
.ListBox1.Clear
For i = 1 To UBound(tablo)
'Colonne A
.ListBox1.AddItem tablo(i, 1)
'Colonne D
.ListBox1.List(.ListBox1.ListCount - 1, 1) = tablo(i, 4)
'Colonne AZ
.ListBox1.List(.ListBox1.ListCount - 1, 2) = tablo(i, 52)
Next i
End With
End Sub