Lignes vides dans un Combo

Bonjour,

A partir d'un fichier Excel, je rempli un combobox avec une liste de numéro de téléphone.
Mon problème est que les cellules vides du fichier laissent des blancs dans mon combo, je souhaiterai que les numéros se suivant dans le combo sans laisser de blancs.
Voici mon code actuel:

Private Sub CommandButton1_Click()
Dim vCell As Object
Load FrmRep
For Each vCell In Sheets('Données').Range('TEL')
FrmRep.CmbTel.AddItem vCell.Value
Next
For Each vCell In Sheets('Données').Range('PORT')
FrmRep.CmbPort.AddItem vCell.Value
Next
For Each vCell In Sheets('Données').Range('NOM')
FrmRep.CmbNoms.AddItem vCell.Value
Next
FrmRep.Show
End Sub

Merci pour votre aide