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

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