Enum READYSTATE
READYSTATE_UNINITIALIZED = 0
READYSTATE_LOADING = 1
READYSTATE_LOADED = 2
READYSTATE_INTERACTIVE = 3
READYSTATE_COMPLETE = 4
End Enum
Sub ClickOnWebPageButton()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.navigate "https://mabanque.fortuneo.fr/fr/identification.jsp"
While IE.READYSTATE <> READYSTATE_COMPLETE And IE.READYSTATE <> READYSTATE_LOADED
DoEvents
Wend
#Const BYCLICK = False
#If BYCLICK Then
IE.document.getElementById("valider_login").Click
#Else...