XL 2013 TCD Faire apparaitre le nom du filtre du segment sélectionné dans une cellule

Function Segment(x As String)
Application.Volatile
Dim s
For Each s In ThisWorkbook.SlicerCaches(x).VisibleSlicerItemsList
    Segment = Segment & ", " & Replace(Split(s, "[")(3), "]", "")
Next
Segment = Mid(Segment, 3)
End Function

=JOINDRE.TEXTE(", ";;SIERREUR(RANGMEMBRECUBE("ThisWorkbookDataModel";JEUCUBE("ThisWorkbookDataModel";Segment_Jour);SEQUENCE(NBJEUCUBE(Segment_Jour)));"");"")

ou un peu plus court

=LET(seg;Segment_Jour;dm;"ThisWorkbookDataModel";JOINDRE.TEXTE(", ";;SIERREUR(RANGMEMBRECUBE(dm;JEUCUBE(dm;seg);SEQUENCE(NBJEUCUBE(seg)));"")))