Coller les items sélectionnés dans 2 segments dans une autre feuille

Bonjour,
Question : Avec Excel 2013, je souhaite afficher les items sélectionnés dans 2 segments (Année, Mois) d'une feuille TCD dans une autre feuille (TB).
Je dispose du code suivant:

Sub Copier_Item_Segment_Sélectionner_Vers_A1_AX()

Dim x As Slicer, Sh As Worksheet, A As Long
Dim B As Long, NbItem As Long

With ThisWorkbook
'Nom de la feuille où est le segment (TDC)
Set Sh = .Worksheets("TCD")
With .SlicerCaches(1)
'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
Sh.Range("A" & A) = .Value
End If
End With
Next
End With
End With
End SubEn collant ce code dans dans la feuille TCD ça marche lorsque je fais "Run" dans la fenêtre VBA;

Mes questions sont les suivantes.
1) Comment faire pour le déclencher lorsque je change la sélection de segment; Worksheet, Activate ??
2) Comment effacer la copie des items lorsque je le déclenche de nouveau (sinon les anciens restent affichés),
3) Comment copier les items dans une autre feuille que TCD (exemple feuille TB),
4) Comment afficher les items de 2 segments.

Merci de la part d'un amateur d'Excel, novice en VBA.