Sub Macro_internet()
Dim sUrl$
Dim IE As Object
Dim login$, password$, key$
'key = Cells(12, 3)
'pour accès :
login = "aaaaa"
password = "bbbbb"
sUrl = "http://www.MaPageWeb.fr"
Set IE = IE7Navigate(sUrl)
'Renseigne les différents formulaire de la page
IE.Document.all("j_user").Value = login
IE.Document.all("j_password").Value = password
'Simule le click sur le bouton Valider
IE.Document.all("uidPasswordLogon").Click
'Attend que la page soit chargée
Do Until IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
IE.Navigate ("http://www.MaPageWeb.fr/page2")
'Là où ça bloque
IE.Document.parentWindow.execScript "javascript:F4HelpButtonHit();", "Javascript"
End Sub