Cliquer bouton sur page internet VBA

Bonjour forum

Voilà j'ai fais une petite macro pour ouvrir une page internet et pour cliquer sur un bouton de la page internet et cela ne fonctionne absolument pas.

Votre aide serait la bienvenue

Voici le fichier

Merci a tous

Salut essaye ce code

Private Sub CommandButton1_Click()
    Dim ie As SHDocVw.InternetExplorer
    Dim doc As MSHTML.HTMLDocument
    Dim div As HTMLDivElement
    Dim url As String

    url = "https://www.turfomania.fr/cheval/help-me-win_913266#null"

    Set ie = CreateObject("InternetExplorer.Application")

    ie.Visible = True
    ie.navigate url
    Do Until ie.readyState = 4
        DoEvents
    Loop
    On Error Resume Next

    Set doc = ie.document
    Set div = ie.document.getElementById("btnDeplier")

    div.FireEvent "onclick"

    Set doc = Nothing
    Set ie = Nothing

End Sub

Super cela fonctionne nickel