Bonjour,
La remarque de Patrick ne me semble pas excessive, c'est la moindre des politesses quand on veut un peu d'aide que de dire bonjour, on n'a pas élevé les cochons ensemble comme on dit…
Concernant votre problème, il n'est pas facile à trouver, cependant il me semble que c'est la ligne suivante qui lève une erreur :
nIdxColLstEch = tsSrc.ListColumns("Liste des _chantillons").Index
En effet cette colonne n'existe pas dans le tableau source "T_TRAVAUX". A mon avis, en relisant le code, vous avez fait un CTRL+H "rechercher et remplacer" pour retirer les accents (é) et les remplacer par des "_". C'est une bonne idée de ne pas avoir d'accents dans le code, mais dans ce cas il faut aussi adapter les cellules correspondantes dans le classeur. En l'occurrence, en renommant Travaux!Q21 en "Liste des _chantillons", la macro ne devrait plus lever d'erreur. Alternativement, remettre l'accent (é) dans la ligne de code susmentionnée.