Erreur 1004 lors de l'importation des données d'une page web

Bonjour,
j'ai essayer de créer un macro pour importer des données d'une page web, le problém c'est quand je fais la premier importation le macro marche aprés il met pas a jour les données. et quand je ferme le fichier et je l'ouvre il m'affiche erreur 1004, il me met en jaune la ligne : .Refresh BackgroundQuery:=False
je sais pas si il y a des ligne a revoir sur mon programme ou c'est parceque le site est sécurisé c'est pour ca il peut pas mettre a jour les données

voila mon code

Sub Macro1()
Sheets("Feuil3").Cells.Clear
    With Sheets("Feuil3").QueryTables.Add(Connection:= _
        "URL;http://sacch35085/FlexNet/PerformTask.aspx?TabID=529", Destination:= _
        Range("$A$1"))
        .Name = "PerformTask.aspx?TabID=529_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Merci pour votre réponses