- Dans mon post précédent, vous pouvez plutôt remplacer le .pivottables.count par le chiffre 1, si vous avez 1 seul TCD sur une même feuille
- Si vous avez plusieurs TCD sur une même feuille, comme dans votre fichier posté d'ailleurs, vous pouvez utilisez ce code-ci
Sub Macro1()
Dim pt As...