Excel 2003 et combobox

Bonjour,

J'ai un problème avec le remplissage de mes combobox.

Je veux remplir 2 combobox, dans la 1ère on selectionne la colonne que l'on veut trier et dans la 2ème doit s'afficher les données de la colonne sélectionnée, j'ai bidouillé un code (je suis très grande débutante) mais je n'arrive pas à supprimer les doublons. Je ne sais pas comment faire. Si quelqu'un pouvait m'aider
Voici mon code :
Private Sub ComboBox1_Change()
With Me
.TextBox1.Value = ComboBox1.Value
End With
clt = TextBox1.Value
With Worksheets("Feuil1")
Me.ComboBox2.List = .Range(clt).Value
End With
End Sub

Private Sub UserForm_Initialize()
Dim iCnt As Integer
Dim oRng As Excel.Range
'Remplissage de la combo 1 par les entêtes de colonne
Set oRng = Feuil1.Cells(1, 1)
For iCnt = 0 To 6
ComboBox1.AddItem oRng.Offset(0, iCnt)
Next iCnt
ComboBox1.ListIndex = 0
With Me
End With
End Sub

Merci pour votre aide