XL 2019 remplir un combobox ou une listbox sous condition

Function Get_Table(Table As Object) As String
    With Table
        Get_Table = "[" & .Worksheet.Name & "$" & .ListObject.Range.Address(False, False) & "]"
    End With
End Function
Public Function Get_Fields(Target As Variant, Select_String As String, Optional Column_Widths As String = "-1") As Boolean
    Dim Source_Folder As ADODB.Connection
    Dim Source_Filtre As ADODB.Recordset
    Sql_Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                    "DBQ=" & ThisWorkbook.FullName & ";READONLY=FALSE"

    On Error Resume Next
    Set Source_Folder = New ADODB.Connection
        Source_Folder.Open Sql_Driver
        Set Source_Filtre = New ADODB.Recordset
            Source_Filtre.CursorLocation = adUseClient
                Source_Filtre.ActiveConnection = Source_Folder
                Source_Filtre.Open Select_String
                If Err = 0 Then
                    If Source_Filtre.EOF Then
                       Get_Fields = False
                    Else
                        Get_Fields = True
                        Select Case TypeName(Target)
                        Case "ListBox"  ' Retour dans une Listbox
                            With Target
                                .Clear
                                .ColumnCount = Source_Filtre.Fields.Count
                                .ColumnWidths = Column_Widths
                                .Column = Source_Filtre.GetRows
                            End With
                         Case "Range"   ' une plage de cellules (cas d'un tableau excel)
                            With Target
                                If Not .ListObject.DataBodyRange Is Nothing _
                                Then .ListObject.DataBodyRange.Delete
                                .CopyFromRecordset Source_Filtre
                            End With
                         Case Else      ' Retour dans une variable tableau
                            Target = Source_Filtre.GetRows
                        End Select
                    End If
                Else
                    MsgBox "Erreur " & Err().Number & vbLf & Err().Description
                End If
               Source_Filtre.Close
           Set Source_Filtre = Nothing
        Source_Folder.Close
    Set Source_Folder = Nothing

End Function