Problème tableau

Bonjour,

j'ai un probléme avec une macro.

elle fonctionne très bien mais quand j'utilise le bouton "mise a jour" qui déclenche la macro "séparer" (module 7) celle-ci m'efface le tableau situé dans la feuille "BaseMateriel" qui est en faite une connexion à une base access.

pourtant la macro travail sur toute les feuilles sauf "BASE", "VEH" et "BaseMateriel".

ce qui fait que je perd ma connexion à ma base access.

quelqu'un pourrait il m'aider car là je ne sais plus quoi faire.

pour info la macro sert à déplacer les lignes dans les feuilles dont le nom figure en colonne "I".

ex si en i j'ai "EN COURS" et que la ligne correspondante n'est pas dans la feuille "EN COURS" et bien elle sera déplacée dans la bonne feuille.

je vous joint mon fichier.

à l'avance un grand merci

je pense qu'il faut remplacer le "for each Ws In ActiveWorkbook.Worksheets" par quelque chose ou je puisse entrer dans le code VBA le nom des feuilles à analyser.

aprés recherche il faudrait mettre les noms de feuilles à analyser dans une variable et utiliser celle-ci pour faire la boucle.

comme cela on évite de toucher à la feuille ou il y as le tableau

mais là je n'y arrive pas

bon j'ai bien avancé mais encore une erreur que je n'arrive pas à corriger.