Erreur macro dans Vb pour la creation d' un TCD

[Klm16]

Bonjour à tous,

Je suis un petit nouveau sous VBA donc j'utilise le record pour faire macro et je corrige après dans VB.
Mon problème est que je n'arrive pas à corrige mon tcd. J’ai fait pas mal de tentative regarder sur le forum car ça à l'air d’être un problème courant mais je sèche.
Je souhaite faire un TCD des infos ce trouvant en « data base » pour ensuite créer le TCD a dans « Pivot table ».

Je vous joint la macro complète sur laquelle je bosse Otd automatic

Merci par avance pour votre aide