bonjour tout le monde!

voilà mon petit problème : je voudrais faire apparaître dans un combobox, la liste des cellules non vides d'une colonne qui est susceptible de recevoir d'autre éléments.
J'ai vu quelques codes mais je n'arrive pas à les adapter :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize2()
 
    Dim l As Integer
 
    Sheets("Liste organismes").Select
    For l = 1 To Range("D65536").End(xlUp).Row
    ComboBox4 = Range("D" & l)
        If ComboBox4.ListIndex = -1 Then ComboBox4.AddItem Range("D" & l)
    Next l
 
End Sub
qu'est ce qui n'est pas correct? le combobox n'affiche rien
Est-ce qu'il faut quand même mettre quelquechose dans "RowSource" de la propriété?
Peut-on définir une liste dans excel sur une colonne mais sans les espaces vides?

merci

BIBI