Microsoft 365 RowSource d'une Combobox

Private Sub TxtCommuneFacturation_Change()
'TxtCpFacturation.Value = Application.WorksheetFunction.VLookup(TxtCommuneFacturation.Value, Workbooks("Source Communes.xlsm").Sheets("Feuil1").Range("List_Communes"), 2, 0)
'TxtCommuneFacturation.Value = Application.Proper(TxtCommuneFacturation.Value)
'Dim objPlageRecherche As Range
'Set objPlageRecherche = Workbooks("Source Communes.xlsm").Worksheets("Feuil1").Range("a2:b37000")
'TxtCpFacturation.Value = Application.WorksheetFunction.VLookup(TxtCommuneFacturation.Value, objPlageRecherche, 2)
With TxtCommuneFacturation
If .ListIndex > -1 Then TxtCpFacturation = .List(.ListIndex, 1)
End With
End Sub

Private Sub UserForm_Activate()
    Dim Bd$
    Bd = ThisWorkbook.Path & "\Source Communes.xlsm"
    Me.Repaint
    With CreateObject("ADODB.Connection")
        Sql = "select [Nom_commune],[Code_postal] from [Feuil1$]"
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
        tablo = .Execute(Sql).GetRows
        .Close
        With TxtCommuneFacturation
            .ColumnCount = 2
            .Column = tablo
            .ColumnWidths = "150;0"

        End With
    End With
End Sub