XL 2021 Générer Excel venant d'une page Web

Sub AppuyerSurBoutonWeb()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim bouton As Object
    ' Initialiser une nouvelle instance d'Internet Explorer
    Set IE = CreateObject("InternetExplorer.Application")   
    ' Ouvrir la page web
    IE.navigate "https://www.example.com" ' Remplacez ceci par l'URL de votre page web   
    ' Attendre que la page se charge
    Do While IE.readyState <> 4 Or IE.Busy
        DoEvents
    Loop   
    ' Obtenir le document HTML de la page chargée
    Set HTMLDoc = IE.document   
    ' Identifier le bouton à cliquer par son ID ou sa classe et le cliquer
    Set bouton = HTMLDoc.getElementById("ID_du_bouton") ' Remplacez "ID_du_bouton" par l'ID de votre bouton
    ' Si l'élément n'est pas trouvé par ID, essayez de le trouver par sa classe
    If bouton Is Nothing Then
        Set bouton = HTMLDoc.getElementsByClassName("classe_du_bouton")(0) ' Remplacez "classe_du_bouton" par la classe de votre bouton
    End If   
    ' Si le bouton est trouvé, cliquez dessus
    If Not bouton Is Nothing Then
        bouton.Click
    Else
        MsgBox "Bouton non trouvé."
    End If   
    ' Fermer Internet Explorer
    IE.Quit   
    ' Libérer la mémoire
    Set IE = Nothing
    Set HTMLDoc = Nothing
    Set bouton = Nothing
End Sub