Bonjour
"le reset ne foncionne pas" Mais encore ?
ActiveWorkbook.SlicerCaches("Segment_Restaurant1").ClearManualFilter
supprime tous les filtres de ce segment mais pas forcément tous ceux du TCD
ActiveWorkbook.SlicerCaches("Segment_Restaurant1").SlicerItems(Resto).Selected = True
ne sert à rien puisqu'avec la suppression du filtre il sont tous selected
Il faut désélectionner tous les autres
Honnetement piloter des segments par VBA en fonction d'une cellule est un peu bourrin sauf très bonne raison à démontrer