XL 2019 Recherche tableau nommé

Sub test()
' parcours de tous les tableaux structurés d'un classeur pour
' n'agir que sur ceux dont le nom commence par "Historique"
Dim wks As Worksheet, lsto As ListObject
   For Each wks In ThisWorkbook.Worksheets
      For Each lsto In wks.ListObjects
         If lsto.Name Like "Historique*" Then
            maMacro lsto
         End If
      Next lsto
   Next wks
End Sub

Sub maMacro(x As ListObject)
   ' pour un tableau structuré x, affiche son nom et le nom de la feuille qui le contient
   MsgBox "Tableau structuré " & x.Name & " sur la feuille " & x.Parent.Name
End Sub