Nom de tableau "dynamique"

[jeanyves31]

Bonjour à tous

Je me pose la question suivante, de savoir si il serai possible de nommer un tableau de manière "dynamique"?

Contexte:
Je crée, via un onglet menu, un onglet Fournisseur_x

Sub Dupliquer_Modele()
    Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
    .Range("e1").Value = "Fournisseur " & Sheets.Count - 5
    .ListObjects(1).Name = "tbl_Four_" & Sheets.Count - 5
     End With
  
End Sub

Cette macro me permets donc de créer l'onglet et de renommer le tableau sous la forme tbl_Four_x

Sur mon onglet fournisseur, j'ai créer un macro pour extraire les données.

J'ai donc le code suivant:

Sub Extraire()
'
' Extraire Macro
'

    ActiveWindow.SmallScroll ToRight:=1
    Range("E15").Select
    Application.CutCopyMode = False
  
        Range("tbl_Four_[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Modèle!Criteria"), CopyToRange:=Range( _
        "Modèle!Extract"), Unique:=False

    Range("o8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Cut
  
    Sheets("BD-Achats").Select
    Range("c15").End(xlDown).Offset(1, 0).Select
    
    ActiveSheet.paste
 End Sub

cette macro est issue de l’enregistreur...
Est il possible que le nom du tableau soit automatiquement reconnu tbl_Four_1, tbl_Four_2, tbl_Four_3,...
J'ai essayé, mais pour l'instant....
Un idée?
Merci
Jean Yves