Macro comparaison valeurs de deux tableaux croisés dynamiques

Bonjour,

Je souhaite réaliser une macro permettant de comparer deux tableaux croisés dynamiques.
En effet, chaque matin je reçois 2 fichiers excel m'indiquant la quantité que l'on a en stock de différentes références. J'ai déjà réussi à créer une macro permettant de transformer les valeurs en vrac en tableau croisé dynamique mais j'aimerais maintenant que les références où il y a une différence de quantité entre les deux fichiers soient affichées quelque part dans un classeur pour mettre en évidence les erreurs de stock, de même pour les références qui ne sont présentes que sur un des deux fichiers toujours dans le but d'observer un écart.

Veuillez trouver ci-joint un exemple concret pour mieux visualiser le problème :
fichier (1) https://www.cjoint.com/c/FApn4sUn3AM
fichier (2) https://www.cjoint.com/c/FApobIr8vXM

Dans ces fichiers, on arrive facilement à voir qu'il y a des différences de quantité entre les différents produits et qu'il y a des produits dans le fichier 2 qui n'existent pas dans le fichier 1. Aidez-moi à mettre en évidence ces points là !

Voici la macro que j'utilise pour créer mon tableau croisé dynamique :

Sub Macro3()
'
' Macro3 Macro
'
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Balance des stocks!R1C1:R450C3", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Produit" _
)
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Total U.V."), _
"Somme de Total U.V.", xlSum
End Sub

D'ailleurs, lors de l'enregistrement de ma macro, j'étais à + de 24000lignes sélectionnées grâce à contrôle shift flèche du bas. Mais pour simplifier l'exemple, je vous envoie un fichier avec 450 lignes, j'ai du modifier moi-même dans le code du programme le nombre de lignes (R450 au lieu de R24263) pourquoi cela ne se fait pas automatiquement à l'aide de la partie du code juste au dessus ? :
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select


J'espère avoir été clair et compréhensible, n'hésitez pas à me reposer des questions sinon !

Merci d'avance,