Microsoft 365 VBA QueryTables ne retourne pas toutes les tables d'une URL

[danielco]

Bonjour,

Je cherche à récupérer la table numérotée 8 avec Power Query.

URL : https://www.boursorama.com/bourse/opcvm/cours/composition/MP-400876/

J'utilise le code suivant :

Sub Query()
    Dim qtSM As QueryTable, Txt As String, Dat As Date
  With ActiveSheet
'    .QueryTables(1).Delete
    Txt = "URL;" & Cells(3, 2)
    Set qtSM = .QueryTables.Add(Connection:=Txt, _
     Destination:=.[B4])
  End With
  With qtSM
'   .Name = "Tous"
   .WebFormatting = xlNone
   .WebSelectionType = xlSpecifiedTables
   .BackgroundQuery = False
   .WebTables = "7"
   .Refresh
  End With
End Sub

Je n'arrive pas à la récupérer. Savez-vus où se situe mon erreur ?

Merci d'avance.

Daniel