Récupérer via une macro dans un module normal le "ListIndex" d'un ComboBox

Bonjour,

J'ai un ComboBox qui s'appelle : "ComboBoxListeAssemblages1"
Je voudrais récupérer, dans une procédure qui ne soit pas dans un module de feuille, la valeur correspondant à ListIndex du ComboBox.

Si j'écris :

Sub valeur()

Dim ComboBoxListeAssemblages1 As Object, zaza As Object

Set zaza = ActiveSheet.OLEObjects("ComboBoxListeAssemblages1")

zaza.Select '---> Ça marche
zaza.Name '---> Ça marche
zaza.ListIndex '---> Ça ne marche pas

End Sub

Peut-on récupérer ce ListIndex ?

Merci d'éclairer ma lanterne.