voila ce code me permet d'afficher les contenus des tableau ds un msg,si vs avez une idées comment le regler pr le fixer sur un seul colone du tableau:
set maPageHtml = WebBrowser1.Document
Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
Set maTable = Htable(0) 'premier tableau dans la page Web
For i = 1 To maTable.rows.length 'boucle sur toutes les lignes du tableau
'boucle sur les cellules dans chaque ligne
For j = 1 To maTable.rows(i - 1).cells.length
MsgBox maTable.rows(i - 1).cells(j - 1).innerText
Next j
Next i