Importation de donnees d'internet qui s'arrete (??)

Bonjour tout le monde,

J'utilise tous les jours une macro qui importe des donnees d'une page internet dans une page excel puis fait quelques analyses.
Tout marchait tres bien pendant plus de 6 mois, mais depuis quelques jours la macro s'arrete a la derniere ligne du code (ligne 24), avec une admirable fenetre de bug (celle qui apparait quon a ecrit un code qu elle n'aime pas)

Si j'insiste avec F8 (plusieurs fois) ou que je la refait tourner a partir de la ligne 5, elle passe. Je pense pouvoir en conclure que l'adresse URL est correct (je l'ai teste a chaque fois)

Voila le code que j'utilise: est ce qu 'il y aurait quelque chose a updater? ou quelque chose que je n'ai pas vu? est ce qu il y a une limite (taille) a ce qui peut etre importer?

Sheets("Web").Select

    Range("A1").select

    url_page = "URL;" & deltapart1 & last_BD & deltapart2 & user & deltapart3 & ".html"

 
        With ActiveSheet.QueryTables.Add(Connection:=url_page, Destination:=Sheets("Web").Range("A1"))

        .Name = name_page

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlAllTables

        .WebFormatting = xlWebFormattingNone

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .Refresh BackgroundQuery:=False

    End With

Merci !
Adrien