Pour récupérer un seul tableau, repère son indice sur le numéro d'onglet créé.
Dans ce cas, remplace ceci
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
par ceci
i = 3 ' par exemple
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
et plutôt que de mettre
ActiveSheet.Name = "Table #" & i
autant mettre le code correspondant à l'action et itérer sur plusieurs codes