Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayAlerts = False
If Sheets("YT").PivotTables("Tableau croisé dynamique20").PivotFields("Ag. Analytique").PivotItems("Test").Visible = False Then
ActiveWorkbook.Close
End If
End Sub