Utiliser 2 "for each" pour 2 combobox de même données ...

Bonjour .......


Je sais, mon titre n'est pas clair. D'ailleurs je ne pense avoir compris moi-même 😀

Je m'explique. Je suis en train de créer un useform avec " entre autres " 2 combobox devant recevoir la même liste; une liste d'heure. De 8:00 à 18:30.

Pour la première j'ai donc appliqué ces codes:

' Application du format heure au combobox4

Private Sub ComboBox4_Change()
ComboBox4.Value = Format(CDate(ComboBox4.Value), "hh:nn")
End Sub

' Application de la liste au combobox4

Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Sheets("Liste").Range("E2:E128")
ComboBox4.AddItem c.Text
Next c
End Sub

Pour ce combobox, pas de problême. Par contre je ne parviens pas à appliquer le même processus pour le combobox5

' Application du format heure au combobox5

Private Sub ComboBox5_Change()
ComboBox5.Value = Format(CDate(ComboBox4.Value), "hh:nn")
End Sub

La suite ..... je ne comprend plus

Comment faire pour que la même liste soit appliquée au combobox5?

J'ai essayé:

Dim d As Range
For Each d In Sheets("Liste").Range("E2:E128")
ComboBox5.AddItem d.Text
Next d

Mais a part erreur sur erreur ..... rien. Je ne sais pas où placer ce code sans créer une erreur.

Merci à l'avance pour toute personne me venant en aide 😛 " Je suis sous excel 2003"