XL 2016 comment récupérer le nom des champs de second niveau d'un TCD sélectivement

Sub recup()
'
Dim tablo As PivotTable
Dim ref1, ref2 As PivotField
Dim valeur As PivotItem
Dim rang As Range
Dim client As String
Dim carte As Variant
Dim ok As Boolean

    client = "Client B"
'
'
    On Error Resume Next
    With Sheets("Extraction")
        .Select
        With .PivotTables("TCD_extract").PivotFields("Clients")
            .ClearAllFilters
            For Each valeur In .PivotItems
                If valeur = client Then
                    ok = True
                Else
                    valeur.Visible = False
                End If
            Next valeur
            If Not ok Then .ClearAllFilters: MsgBox "Pas de client à ce nom"
        End With
    End With
    
End Sub

Sub copycolle()
Dim client As String

    client = "Client E"
    Worksheets("Extraction").Select
'    Sheets("Extraction").PivotTables("TCD_extract").PivotFields("Clients").ShowDetail = True
    Worksheets("Extraction").PivotTables("TCD_extract").PivotFields("Clients").PivotItems( _
        client).ShowDetail = True
    Worksheets("Extraction").PivotTables("TCD_extract").PivotSelect client, xlLabelOnly
    Selection.Copy
    Sheets("A").Select
    Range("A3").Select
    ActiveSheet.Paste
    Worksheets("Extraction").PivotTables("TCD_extract").PivotFields("Clients").PivotItems( _
        client).ShowDetail = False

End Sub