Importer des données d'un classeur à un autre

Bonjour,

J'ai créé un classeur (Liste_ports) ou les données écrites dans une colonne et 162 lignes sont regroupées dans un ComboBox. Jusque là tout vas bien:

Option Explicit

Dim Flag As Boolean

Private Sub ComboBox1_Change()

If Flag = False Then

Box Feuil1.ComboBox1.Value

End If

End Sub

Private Sub Workbook_Open()

Dim Lig As Integer, Lastli As Integer

With Feuil1

Flag = True

.ComboBox1.Clear

Flag = False

Lastli = .Range("A1").End(xlDown).Row

For Lig = 1 To Lastli

.ComboBox1.AddItem .Range("A" & Lig)

Next

.ComboBox1.ListIndex = 0

End With

End Sub

J'ai écrit ce code simplement pour me pratiquer parce que ce n'est pas ce que je veux faire au bout du compte: Mon problème est que je veux maintenant incorporer ce comboBox à un autre code déjà existant, créé par un ex collègue de travail. En fait je veux créer un COmboBox dans cet autre classeur (EIM004), mais je veux le remplir avec les données de la colonne A du classeur Liste_ports. Est-ce que vous pensez que c'est faisable ? Je ne peux pas publier le code du fichier EIM004 parce que c'est pour mon travail, donc confidentiel.

En espérant que vous pourrez quand même m'aider!

Merci d'avance:)