Listbox

Option Explicit


Private Sub UserForm_Initialize()
Dim Haut As Integer, Bas As Long
Dim x As Integer

With Sheets('Daily2')
    Haut = .Range('E38').End(xlUp).Row
    Bas = .Range('E38').End(xlDown).Row
End With
If Bas = 65536 Then Bas = 38

For x = Haut To Bas
    If Not Cells(x, 5) = Empty Then
        Me.ListBox1.AddItem Cells(x, 5)
    End If
Next

End Sub

Cliquez pour agrandir...