Sub choix()
Sheets("Indicateurs").Select
ActiveWorkbook.SlicerCaches("Secteur").ClearManualFilter
With ActiveWorkbook.SlicerCaches("Secteur")
.SlicerItems("Lille").Selected = True
.SlicerItems("Paris").Selected = False
.SlicerItems("Nancy").Selected = False
.SlicerItems("Lyon").Selected = False
.SlicerItems("Grenoble").Selected = False
.SlicerItems("Aix en Provence").Selected = False
.SlicerItems("Rouen").Selected = False
.SlicerItems("Nantes").Selected = False
.SlicerItems("Bordeaux").Selected = False
.SlicerItems("Orléans").Selected = False
.SlicerItems("Toulouse").Selected = False
End With
End Sub