Récupérer liste Sharepoint "ActiveWorkbook.Queries.Add"

Bonjour,

J'arrive parfaitement à récupérer une liste sharepoint nommée "CONTACT BE".

Je souhaite récupérer une autre liste sharepoint Nommée "Listetag"

Mais je n'y arrive pas:

Voici mon code ci-dessous:

ActiveWorkbook.Queries.Add Name:="CONTACT BE", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = SharePoint.Tables(""https://.......

    With ActiveSheet.ListObjects.Add(SourceType:=0, source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""CONTACT BE"";Extended Properties=""""" _
        , destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Listetag]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_CONTACT_BE"
        On Error GoTo fin
        .Refresh BackgroundQuery:=False
    End With

Que dois-je changer dans ce code pour que ma liste Nommée "Listetag" soit importée ?
Windows / Chrome 121.0.0.0