Erreur d'automation lors de la récupération de données depuis site INSEE

Bonjour à tous, j'ai récupéré sur un fil du forum un code permettant d'aller chercher des données sur un site web (ici le site de l'INSEE).
le code fonctionne très bien mais je voulais remplacer le "array", qui prenait des valeurs dans un tableau, par la valeur de la cellule D1 de la feuille TEST (un indice BT et son identifiant dans la base de données INSEE).
Mais quand je lance la macro, la feuille se crée et tout s'arrête avec le message "erreur d'exécution -214721376(80041020) erreur d'automation".

Pourriez vous m'aider à avancer ?
merci par avance :)

je me réponds à moi même, j'ai trouvé la réponse sur le forum :)

J'ai donc corrigé de la façon suivante :

Sub Essai()
Dim Site As String, Sht As Worksheet
Dim Idbank As String

Idbank = Sheets("TEST").Range("D1").Value

    Site = "https://bdm.insee.fr/series/sdmx/data/SERIES_BDM/" & Idbank

    Application.DisplayAlerts = False
    Set Sht = Sheets.Add
    Sht.Name = ("INSEE")
    With Sheets("INSEE")
        ThisWorkbook.XmlImport URL:=Site, ImportMap:=Nothing, Overwrite:=True, _
                               Destination:=.Range("A3")

        .Range("A1").Value = "Mise à jour du :"
        .Range("A1").HorizontalAlignment = xlRight
        .Range("B1").Value = Format(Now(), "dd/mm/yyyy")
        .Range("C1").Value = Format(Now(), "hh:nn")
    End With
    Application.DisplayAlerts = True
    Set Sht = Nothing
End Sub