ComboBox sans doublans et sans vides

Bonjour Forum

Bonjour a tous et a toutes

SVP si vous pouvez m'aider a remplir ComboBox1 par les donnees de Feuil1 ..sans doublans et sans vides

Merci beaucoup d'avnace pour l'aide

Cordialement

MARTI

Bonjour,

Private Sub UserForm_Initialize()
Dim Cel As Range
    For Each Cel In Range("D5:D18")
        ComboBox1 = Cel
        If ComboBox1.ListIndex = -1 And Cel <> "" Then ComboBox1.AddItem Cel
    Next Cel
End Sub

A+

Bonjour frangy

Merci beaucoup pour votre aide et votre impeccable code

Tres gentil de votre part

Parfaitement resolu

Amicalement

MARTI