Bonjour
Dans le module de la feuille : adapter le nom du segment
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
compteur = 0
For Each Cas In ActiveWorkbook.SlicerCaches("Segment_NOM").SlicerItems
If Cas.Selected = True Then
compteur = compteur + 1
If compteur > 1 Then
Application.EnableEvents = False
Cas.Selected = False
End If
End If
Next Cas
Application.EnableEvents = True
If compteur > 1 Then MsgBox " Selection limitée à 1 item."
End Sub