Remplir combobox a partir d'un autre classeur

Bonjour,
Comment faire pour alimenter une combobox a partir des donnees qui se trouvent dans une feuille nomée "heures_alpha" dans un fichier excel "liste affectation" j'ai rédigé ce code il marchait bien dés que j'ai changé l'emplacement du fichier source "liste affectation" le code ne fonctionne plus. Le fichier source ne doit pas changer d'emplacement et je ne peux pas le mettre avec mon fichier cible.

'Code de ma feuille cible
Private Sub CommandButton1_Click()
Dim ws_Liste_affect As Worksheet, Fin_Liste_affect As Long, arr As Variant
Set ws_Liste_affect = Workbooks("liste affectation").Worksheets("heures_alpha") ' extraire les données de la feuille source du classeur source
Fin_Liste_affect = ws_Liste_affect.Range("A" & Rows.Count).End(xlUp).Row
arr = ws_Liste_affect.Range("A2:A" & Fin_Liste_affect).Value
UserForm_SDE.ComboBox_Affect.List = arr
'-----Afficher le userform
UserForm_SDE.Show
End Sub