Selectionner un objet en VBA sans en connaitre le nom

Bonjour tout le monde,

Je copie colle un tableau venant d'un fichier sur lequel je n'ai pas la main dans mon fichier :

Ce tableau s'appelle "Tableau_FilmDeProduction ".

Pour pouvoir exécuter mon code

ActiveSheet.Range("$A$1:$AK$20000").AutoFilter Field:=a, Criteria1:=Array("Porte feui", "Préfa", "semi-préfa", "="), Operator:=xlFilterValues

J'ai besoin de cette méthode :

ActiveSheet.ListObjects("Tableau_FilmDeProduction").Unlist

Problème je doit coller plusieurs tableau avec le même nom et du coup le nom devient "Tableau_FilmDeProduction1 ","Tableau_FilmDeProduction2 ""Tableau_FilmDeProduction3 " etc

Comment pourrais ton faire pour sélectionner ce ListObjects sans en connaître le nom exact ?

J'ai essayé :

Dim lo As ListObjects

For Each lo In Worksheets
lo.Unlist
Next

Merci pour votre aide !

Bonjour,

Pour tous les listobjects de la feuille :

Dim lo As ListObject

For Each lo In sheets("lafeuilleenquestion").listobjects
lo.Unlist
Next

Pour tous les listobjects :

Dim lo As ListObject, ws as worksheet

for each ws in worksheets
    For Each lo In ws.listobjects
        lo.Unlist
    next lo
Next ws

Encore faut-il que cette méthode s'applique sur chacun. Sinon, il faudra arriver à identifier celui qui nous intéresse en ciblant une propriété singulière...

Cdlt,

Bonjour 3GB,

C'est parfait !

Merci beaucoup et bonne journée.

Merci Lonelyx, bonne journée à toi aussi !