Doublons dans combobox...

Bonjour,

à partir de trois combobox je réalise une selection dans un premier temps en fontion du nom, cela alimente la combobox2 , puis prenom cela alimente la combobox3 adresse...
les deux premières combobox ne prennent pas les doublons, cependant la 3e affiche les doublons... je ne sais pas pourquoi,
il doit y avoir une formulle de programmation pour dire que si la valeur d'une ligne d'une liste pour une combobox est égale à la valeur du dessus alors elle ne prend pas cette valeur, du genre:

Dim A As Byte
For A = 4 To Range("C65536").End(xlUp).Row
ComboBox1 = Range("C" & A)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("C" & A)
Next A


mais je n'arrive pas à l'intégrer dans l'évenement : Private Sub ComboBox2_Change()

merci pour votre aide

Titou