Copier / coller a partir d'un pivot vers une autre feuille

[george]

Bonjour,

Je suis débutant en VBA et je souhaiterais copier des valeurs provenant d'un pivot (Sheet : PivotQ) sur une autre feuille dans une case voulue (Sheet : Repartition).
J'ai commencé a écrire un bout de code pour exécuter cette action mais aparemment j'ai un probléme avec la déclaration de variable TableItem qui nécessite d'étre déclarer en temps qu'objet d'aprés un message d'erreur et une fois que "TableItem As object" est déclaré, mon programme ne fonctionne toujours pas :/
Cela vient peut etre d'une autre partie de mon code?

L'ensemble du code est lance via un bouton de commande.
Si quelqu'un a une idée je suis preneur.

Code :

Private Sub CommandButton1_Click()

Dim PivotQ As Worksheet
Dim Repartition As Worksheet
Dim TableItem As Object

Sheets("PivotQ").Select

'Copier une valeur du pivot
Set TableItem = Sheets("PivotQ").PivotTable.GetPivotData("Min spend on Queing", A7, "LC Eventhour", 0, "LC Day", 1)
TableItem.Copy

'Coller la valeur selectionnée dans l'onglet Repartition a l'emplacement C2
Sheets("Repartition").Select
Cells("C2").Select
TableItem.Paste

End Sub

Merci d'avance pour votre aide.