modification combobox

j'ai une combobox qui m'affiche des chiffres, mais helas il ne m'affiche pas le chiffre 0

voici mon code si quelqu'un peut y regarder

With Sheets("Article")
Set Dico = CreateObject("Scripting.Dictionary")
For i = 2 To .Range("F65536").End(xlUp).Row
If Not Dico.Exists(.Range("E" & i).Value) Then
Dico.Add .Range("E" & i).Value, .Range("E" & i).Value
End If
Next i
End With
Let Dico_temp = Dico.Keys
FrmArticle.ComboBox3.Clear
For i = 0 To Dico.Count - 1
If Dico_temp(i) <> "" Then FrmArticle.ComboBox3.AddItem Dico_temp(i)
Next i
End Sub

merci de votre aide