XL 2013 Excel 2013 : VBA - Afficher les items sélectionnés dans 2 segments ou plus

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim x As Slicer, ShTCD As Worksheet, A As Long, ShTB As Worksheet
Dim B As Long, NbItem As Long

With ThisWorkbook
    'Nom de la feuille où est le segment (TCD)
    Set ShTCD = .Worksheets("TCD")
    Set ShTB = .Worksheets("TB")
    With .SlicerCaches(1)
        'Remettre à blanc
        ShTB.Range("K10:K15").ClearContents
        'Donne le nombre d'items dans la liste du segment
        NbItems = .SlicerItems.Count
        'Une boucle sur chaque item du segment
        For B = 1 To NbItems
            With .SlicerItems(B)
                'Si l'item du segment est sélectionné
                If .Selected = True Then
                    'Incrémentation de la variable A
                    A = A + 1
                   'Copie de la valeur de l'item vers la cellule Ax
                    ShTB.Range("K" & 9 + A) = .Value
               End If
            End With
        Next
    End With
End With
End Sub