Private Sub UserForm_Initialize()
Dim i As Long ' index list
Dim l As Long ' nombre de lignes
With ThisWorkbook.Worksheets("SSD")
l = .Range("I65536").End(xlUp).Row ' lignes présentes
.Cells(2, 9).Resize(l, 1).Copy ' copie des lignes
ActiveSheet.Paste Destination:=.Cells(2, 256).Resize(l, 1) ' en dernière colonne
Application.CutCopyMode = False ' fin copie et tri des lignes
.Cells(2, 256).Resize(l, 1).Sort Key1:=.Cells(2, 256), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 2 To l ' chargement listebox
If .Cells(i, 256) <> .Cells(i + 1, 256) Then
ListBox1.AddItem .Cells(i, 256) ' suppression des doubles
End If
Next i
.Cells(1, 256).EntireColumn.Delete ' suppression colonne de tri
End With
End Sub