Doublons valeur vide dans une Combobox

Bonjour,

J'ai un souci avec la macro pour supprimer les doublons dans la combobx. En effet j'ai plusieurs données et sur des colonnes différentes, le problème est qu'au résultat la macro a bien retirer les doublons sauf pour les valeurs qui sont vides dans les colonnes. Voici la macro et bonne journée a tous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 Private Sub userform_Initialize()
result = InputBox("Quel est votre domaine?")
If result = "Mécanique" Then
Worksheets("mécanique").Select
'Supprime les données existantes dans le ComboBox
    Me.ComboBoxDomaine.Clear
 
 
    'alimenter le ComboBox
    For Each Cell In Worksheets("mécanique").Range("A2:A50,C2:C50,E2:E50,G2:G50")
        Me.ComboBoxDomaine = Cell
        'remplissage sans doublon
        If Me.ComboBoxDomaine.ListIndex = -1 Then _
            Me.ComboBoxDomaine.AddItem Cell
    Next Cell
End If
 
If result = "Comptabilité" Then
Worksheets("Comptabilité").Select
'Supprime les données existantes dans le ComboBox
    Me.ComboBoxDomaine.Clear
 
 
    'alimenter le ComboBox
    For Each Cell In Worksheets("Comptabilité").Range("A2:A50,C2:C50,E2:E50,G2:G50")
        Me.ComboBoxDomaine = Cell
        'remplissage sans doublon
        If Me.ComboBoxDomaine.ListIndex = -1 Then _
            Me.ComboBoxDomaine.AddItem Cell
    Next Cell
End If
 
End Sub

Comme ça à la volée, sans tester, un truc du style

Code:

If Me.ComboBoxDomaine.ListIndex = -1 And Cell.Value <> "" Then

Oui effectivement tout simplement on pouvait faire çà et çà marche.lol. Je cherchais un peu plus compliqué. Merci pour cette solution.
Bonne journée