Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

Private Sub UserForm_Initialize()
Dim cel As Range, n As Byte
With Sheets("Feuil2")
For Each cel In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
With Me.ComboBox1
.AddItem cel.Value
.Column(1, .ListCount - 1) = cel.Offset(0, 1).Value
End With
Next cel
End With
With Sheets("Auto-Moto")
For Each C In .Range("x3:x" & .Range("x65536").End(xlUp).Row)
If Not C = "" Then ComboBox2.AddItem C
Next C
For Each C In Range("W3:W" & .Range("W65536").End(xlUp).Row)
If Not C = "" Then ComboBox3.AddItem C
Next C
End With
For n = 2 To 3
With Controls("ComboBox" & n)
For x = 0 To .ListCount - 1
For y = 0 To .ListCount - 1
If .List(x) < .List(y) Then
temp = .List(x)
.List(x) = .List(y)
.List(y) = temp
End If
Next y
Next x
End With
Next n
TextBox3.Locked = True
TextBox2.Locked = True
End Sub

   For Each C In Sheets("Auto-Moto").Range("W:W")
    If Not C = "" Then ComboBox3.AddItem C
Next C