Lignes vides dans un Combo

[psi343]

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

 

[Hervé]

bonjour psi343

pour te repondre, j'ai du faire une pièce jointe, je n'arrive pas à faire un post de plus de 10 lignes.

ca m'enerve

salut [file name=Classeur1_20051209161019.zip size=11031]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051209161019.zip[/file]

 

[psi343]

Bonjour,

Merci beaucoup pour ton aide c'est exactement ce que je cherchais.
Je te souhaite de trés bonnes fêtes de fin d'année et j'espère que le Père Noël sera généreux.
Encore merci