Re Naubin1 le forum
voilà avec la liste classée Alpha
a+
papou
'Macro Faite par Pascal RICHARD Paritec le 12/04/2019
Option Explicit
Option Compare Text
Sub test()
Dim d As Object, y&, i&, bb, j&, temp, x$
Set d = CreateObject("Scripting.Dictionary")
With Feuil1 ' modifier la source par la tienne
For y = 2 To 157
x = .Cells(y, 2)
If x <> "" And Not d.exists(x) Then d.Add x, x
Next y
bb = d.keys()
For i = 0 To UBound(bb)
For j = 0 To UBound(bb)
If bb(i) < bb(j) Then
temp = bb(i)
bb(i) = bb(j)
bb(j) = temp
End If
Next j
Next i
listbox1.List = bb
End With
End Sub