tu peux tester cette macro : malheureusement la mise en page de cette page Web ne permet pas de récuperer les données de façon optimale dans le classeur
Sub Importer_tableauPageWeb()
'michelxld le 09.06.2005
'
'necessite d'activer la reference Microsoft HTML Objects Library
'necessite d'activer la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = False
IE.navigate '
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set Htable = maPageHtml.getElementsByTagName('table') 'objet type table
Set maTable = Htable(4) ''5ieme tableau dans la page Web