Set maPageHtml = ie.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
For j = 1 To maTable.Rows(i - 1).Cells.Length 'boucle sur les cellules dans chaque ligne
Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
If IsDate(maTable.Rows(i - 1).Cells(j - 1).innerText) Then
Cells(i, j) = CDate(maTable.Rows(i - 1).Cells(j - 1).innerText)
Else
Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
End If
Next j
Next i