Grosse galère pour créer un Tcd sous VBA

Bonjour à tous,
je découvre VBA et les macros, mon niveau est plus que faible.

Pour commencer, j'ai fouillé partout sur le net, avec un succès plus que mitigé 😡
Bon, je vais expliquer mon (mes) problème(s).

Je suis en train ed créer un tcd pour faire un tri et comptage de pièces.
Quand je passe par l'enrgistreur auto de macro, impossible de la relancer, toujours un erreur qui fait chier.
J'ai réussi à bidouiller pour la faire sauter, maintenant, je suis coincé sur les champs pour remplir mon TCD.

Déjà, la page où est le TCD est différente suivant si je le fais en manuel ou en macro...
Je n'arrive pas à ajouter les champs dans les bonnes colonnes...

Depuis lundi je suis sur le problème, c'est dire 😡

Pour le moment, j'en suis là:

Sub Macro1()

Set Source = Worksheets("DG")
Set resultat = Worksheets("DG par coût")
resultat.Cells.Clear

Sheets("DG").Select
Range("B1").Select

Range("B1:G7" & Range("A25000").End(xlUp).Row).Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DG!R1C2:R25000C7").CreatePivotTable TableDestination:= _
"'DG par coût'!R1C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10

End Sub

Cliquez pour agrandir...

Help! I need some help 😱