XL 2019 demande d'aide et ds'assistance

Sub TauxChange()
    ActiveSheet.Cells.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.forexpros.fr/quotes/tableau-de-taux-de-change", Destination:=Range("A1"))
            .Name = "Taux_Change"
            .FieldNames = True
            .RowNumbers = False
            FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlOverwriteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebTables = "1"
            .WebFormatting = xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=True
            .RefreshPeriod = 10
    End With
End Sub