Remplir une zone de liste Excel par une requête Access

Voici un code VBA Excel pour remplir une zone de liste à partir d'une requête sur une table Access. Les données sont placés dans le 1° combobox issue de la barre à outils formulaire d'Excel et trouvé dans le classeur.. ( Nota: DAO étant utilisé il faut ajouter la référence : Microsoft DAO 3.X )