XL 2016 Copier et coller une valeur dans plusieurs Listobjects d'une même feuille

[Clotaireexcel]

Bonjour à tous les membres de Excel Download

J'ai encore besoin de votre aide.
J"ai un problème avec un code que j'ai adapté à mon classeur. À l'exécution du code, il peut mettre 10 à 15mn pour faire la réparation. J'ai plus de 50 feuille sur mon classeur et plus de 1000 noms sur ma BASE DE DONNEE.

Il faut noter que Mon classeur à plusieurs feuilles nommé zone 1, Zone 2, zone 3... et une nommé BASE DE DONNÉE.

Mes données se trouvent sur la BD et je veux les répartir entre les différentes zones.
J'AI adapté 3 codes pour pouvoir atteindre mon objectif.
Je me dis que c'est ce qui fait que c'est lent dans l'exécution.
Si quelqu'un peut le faire de façon simple pour moi, je serai ravi.

Merci d'avance 🙏🙏🙏🙏

Voir fichier joint avec le code en Macro1

 

[chris]

Bonjour
Quel est l'objectif opérationnel de ces n duplicatas ?

Tu parles de 50 onglets mais de 3 zones ce qui n'aide pas à situer le contexte réel...

 

[Clotaireexcel]

Bonjour Chris. Sur mon fichier original, j'ai plus de 50 onglets. Mais l'exemple que je vous ai envoyé, j'ai limité les onglets à trois. Et je les ai nommé zone 1, zone2, zone3

 

[chris]

Re

Merci j'avais déjà lu cela mais cela ne répond pas à ma question...

 

[Clotaireexcel]

Re

Merci j'avais déjà lu cela mais cela ne répond pas à ma question...

Pour les duplicatas, j'ai besoin de ces références sur chaque Listobjects.
Ces Listobjects représentent chacun le bilan trimestriel de mes relevés mensuels (sur mon classeur original)

 

[chris]

RE

Si c'est juste en consultation, des requêtes PowerQuery suffisent...

Pas sûr de plus qu'il soit utile de traiter tous les cas : un paramétrage de la zone et du trimestre à afficher suffirait pour consulter et imprimer...