Sub test()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputAZoneTexte As HTMLInputElement
Dim InputABouton As HTMLInputElement
'Chargement d'une page Web
IE.navigate "http://www.excel-downloads.com/"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
'On pointe le membre Document
Set IEDoc = IE.document
End Sub