XL 2019 Importer un fichier excel du web dans mon fichier

Sub ImportXRates()

  Dim Ws As Worksheet
  Dim qt As QueryTable
  Dim URL As String
  URL = "https://data.education.gouv.fr/explore/dataset/fr-en-calendrier-scolaire/download/?format=xls&timezone=Europe/Paris&lang=fr&use_labels_for_header=true"
  Set Ws = Worksheets.Add
 
  Set qt = Ws.QueryTables.Add( _
    Connection:="URL;" & URL, _
    Destination:=Range("A1"))
    
  With qt
    .RefreshOnFileOpen = True
    .Name = "MonTest"
    .WebFormatting = xlWebFormattingRTF
    .WebSelectionType = xlAllTables
    .Refresh
  End With
End Sub