XL 2019 Extraire plusieurs pages d'un site Web

[Amilo]

Bonjour à tous,

Je ne sais pas si cette demande transgresse la charte sachant qu'aucune information confidentielle ou site Web n'est indiqué

J'aurais souhaité ajouter une instruction au code ci-dessous pour importer toutes les pages d'un site Web,
L'URL se termine à chaque fois par son numéro de page à savoir : page/2, page/3, page4/….etc

Je pensais ajouter une variable : Dim Pages As String,
URL = "https://Adresse_du_Site/blog/"& i
Et une boucle For i

Mais je ne sais pas trop comment faire et si cette partie du code est suffisante pour répondre à ma demande.

Merci d'avance pour vos remarques

Edit : j'arrive à récupérer toutes les pages et les informations souhaitées avec Power query mais les liens hyperliens ne fonctionnent pas
Alors qu'avec VBA, tous les liens Web sont conservés

Cordialement

Dim ws As Worksheet
    Dim qt As QueryTable
    Dim URL As String

    URL = "https://Adresse_du_Site/blog/page/2"
    Set ws = Worksheets.Add
    Set qt = ws.QueryTables.Add(Connection:="URL;" & URL, Destination:=Range("A1"))