Bonjour à tous

J'ai un combobox qui me récupères des valeurs issues d'une plage de cellules.
pour chaque valeur, j'ai cette formule : =SI(SAISIE!K2="";0;SAISIE!K2)

Exemple de la plage de cellules sources :
MATERIEL
Tête -
Tronçonneuse -
Tenaille coupe-carreaux -
Taille-haie -
0
0
0

J'aimerais trier par ordre alphabétique uniquement les items du combobox de mon formulaire, mais pas les cellules sources.
J'ai donc trouvé ce code que j'utilise à l'initialisation de mon formulaire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub UserForm_Initialize()
 
ComboBox6.Value = ""
 
Dim Cel As Range
Dim i, j As Integer
For Each Cel In Range("N3:N300")
    Me.ComboBox6.AddItem Cel.Value
Next Cel
With Me.ComboBox6
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If .List(i) < .List(j) Then
                strTemp = .List(i)
                .List(i) = .List(j)
                .List(j) = strTemp
                End If
        Next j
    Next i
End With
 
 
 
ComboBox6.Value = ""
ComboBox6.SetFocus
 
End Sub

Les valeurs s'affichent bien mais comme j'ai recopié ma formule dans la plage de cellules source, j'ai toutes mes valeurs 0 qui s'affichent en premier
et à la fin mes 4 valeurs.

Question : comment faire pour trier uniquement sur les valeurs <> de 0

Merci beaucoup pour votre aide
Ben