Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Dim textePage As String
Sheets("Feuil1").Select
Set maPageHtml = IE.document
Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
Set maTable = Htable(0) 'premier tableau dans la page Web
textePage = maTable.innerHTML
'MsgBox textePage
Range("A1") = textePage