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