XL 2013 Ascenseur

Private Sub UserForm_Initialize()

' Mettre en pleine écran
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With

'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
'i = Sheets("Base client").Range("B65536").End(xlUp).Row
For x = 3 To i
    With ComboBoxParNom
        .AddItem Sheets("Base client").Range("B" & x)
    End With
Next x

Dim F

Set F = Sheets("Base client")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = F.Range("B3:B" & F.[B65000].End(xlUp).Row)   ' tableau a(n,1) pour rapidité
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
  Next i
         '-------------avec tri---------------
  temp = mondico.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBoxParNom.List = temp

End Sub

Sub Tri(a, gauc, droi) ' Quick sort
   ref = a((gauc + droi) \ 2)
   g = gauc: d = droi
   Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub