XL 2016 Comparer une valeur d'une combobox avec 2 classeurs

FaruSZ

XLDnaute Occasionnel
Bonjour,
J'ai 2 classeurs, le 1er c une BDD ou j'ai un UserForm pour ajouter des donnees, le 2eme il me permet de remplir une combobox du UserForm du 1er classeur.
Je dois ajouter des données a ma BDD en faisant le choix a partir de la cbx et les rajouter dans la feuille "suivi" du classeur 1 colonne 5, cette valeur de la comboxe est associée a un code qui se trouve dans la colonne 2 de la feuille1 du classeur source ( Classeur2) et qui doit être rajouté automatiquement dans le classeur cible feuille "Suivi" colonne 6, honnêtement j'ai commencé a rédiger ce code je fais entrer la donnée que je veux mais quand je consulte ma feuille je la trouve pas.

'-------------Ajouter affectation----------
'Definir la feuille ou j'ai la liste des valeurs qui se trouve dans ma cobobox ( classeur source)
Dim ws_Liste_affect As Worksheet, Fin_Liste_affect As Long, arr As Variant
Dim wbFullPath As String, wb As Workbook, boolFound As Boolean

wbFullPath = "C:\Users\seus0013\Desktop\liste_affectation.xlsm"
For Each wb In Workbooks
If wb.FullName = vbfullname Then
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
boolFound = True: Exit For
End If
Next
If Not boolFound Then
Set wb = Workbooks.Open(wbFullPath)
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
End If
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
'Ajouter la donnee dans le classeur cible dans la la colonne 5et 6
ws_suivi.Cells(Fin_Liste_suivi + 1, 5) = Me.ComboBox_Affect.Value
Ligne2 = Application.Match(Me.ComboBox_Affect.Value, wb.Worksheets("heures_alpha").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 6) = wb.Worksheets("heures_alpha").Range("B" & Ligne2)