Retrouver valeur en face d'une cellule VBA

Bonjour,
Je suis actuellement en train de créer un suivi de matériel et je rencontre donc un soucis dans mon formulaire UserForm.

Quand je clique sur ma ComboBox1 je retrouve mes valeurs de la colonne A.

Voici mon soucis:
Dans ma ComboBox2 ( en dessous de la 1), je souhaite pouvoir récupérer mes références en fonction de la valeur de la colonne A

je m'explique :
Dans ma colonne A j'ai ma liste de matériel où est marqué HY1, HY2 ... et donc je souhaiterais quand dans ma ComboBox2 apparaisse la référence qui est en face de HY1 ... ainsi de suite pour HY2.

Voici mon code :

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("Feuil1").Range("A" & i) 'ici c'est la colonne "A"
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Feuil1").Range("A" & i)
Next i

End Sub