...J'ai maintenant les infos sous forme de tableau, donc je dois je suppose remplacer les "Range" par "Table",
Pour la recherche cela ne change pas grand chose
et j'ai plusieurs pagefields et celui utilisé en filtre n'est pas le premier donc surement changer "PageFields(1)"
oui mettre le numéro correspondant à la position.
Et expliquer le passage de la vérification car je pense que c'est la que cela bloque. A quoi correspond le 2 et le 100,
Sheets(Range(Mid(pt.SourceData, 2, 100)).Parent.Name).Activate
Si la source est un tableau pour chaque TCD remplacer par
Sheets(Range(pt.SourceData).Parent.Name).Activate
(le 2 servait à partir du caractère suivant le = pour le nom de la plage source (pas de = quand le nom se réfère à un tableau).
le x1Values (valeurs) et x1Part (peut chercher sur une partie de cellule. LookAt:=xlWhole serait plus rigoureux)
Ce sont des paramètres de la recherche. Ouvre la fenêtre de recherche d'Excel, clique sur le bouton options et tu comprendras...
et mes infomations filtrés ne sont plus en colonne A.
Remplacer A:A par la colonne qui va bien