TCD : copier / coller valeur d'une colonne filtrée

Bonjour à tous et meilleurs vœux pour la nouvelle année.

Je me permets de solliciter votre aide pour résoudre un souci sur lequel je tourne en rond depuis un moment mais je n'arrive pas à avancer malgré mes lectures sur le forum.

Je cherche à copier les valeurs de la 1ère colonne du TCD vers la feuille "BILAN" à partir de la cellule C12 jusqu'à C22.

Pourriez vous m'aider ?

merci d'avance !

Bonjour,

Tu fais = cellules du TCD. Et tu copies vers la bas. Mais je vois pas trop le principe ? Au pire tu fais un 2ème TCD non ?

Bonjour,
Pour le principe.
Cdlt.

Public Sub CopyDataFromPivotTable()
Dim rngData As Range, n As Long
    Set rngData = Worksheets("TCD").PivotTables(1).PivotFields("Nom_ST").DataRange
    n = rngData.Rows.Count
    Worksheets("Bilan").Cells(12, 3).Resize(n).Value = rngData.Value
End Sub

voilà ce que j'ai réussi à avoir avec l'enregistreur de macro

Sub Macro2()
' Macro2 Macro
    ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotSelect _
        "Nom_ST[TOTO:TUTU,MAMA:MIIII] ST_Revisable 'Column Grand Total'", _
        xlDataAndLabel + xlFirstRow, True
    Range("A4:A10").Select
    Selection.Copy
    Sheets("BILAN").Select
    Range("C12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

mais cela vient aussi copier l'étiquette "total général".

merci Jean Eric, j'ai répondu sans avoir vu ta réponse.

Bien entedu ça fonctionne à merveille. merci beaucoup ! :)