Bonjour,
Dans la mesure où tu ne peux pas utiliser PowerQuery (puisque tu es en xl2010), il reste la solution "traitement de texte".
Voici un code qui te permettra d'aspirer tous les tableaux de ta page :
Sub Maj()
Dim URL$, obj As New DataObject
On Error Resume Next
DoEvents
URL = [www]
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
For i = 1 To UBound(Split(.responseText, "<table"))
txt = "<table" & Split(Split(.responseText, "<table")(i), "</table>")(0) & "</table>"
obj.SetText txt
obj.PutInClipboard
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "Table #" & i
Next
End If
End With
End Sub
In fine, c'est pratiquement l'équivalent de PowerQuery, voire même en plus rapide et conservant la mise en forme du tableau.
exemple