Alimenter combobox a partir d'un autre classeur

J'ai rédigé ce code:

Private Sub CommandButton1_Click()

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

J'ai une erreur dans : arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value

il me dit objet requis, en sachant que je l'ai défini. qq peut me dire ou est l'erreur.

Merci

Bonjour,

Juste une toute petite coquille ...

Ce n'est pas un point mais un souligné ...

arr = ws_liste_affect.Range("A2:A" & Fin_Liste_affect).Value

Private Sub CommandButton1_Click()
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"
    wbFullPath = "T:\OneDrive\LesDocuments\LesExcels\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
End Sub

ric

Ah oui merci