XL 2019 VBA fermer immédiatement après modification

[Arnaud59000]

Bonjour tout le monde !

J'aimerai que le code suivant :

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

Ferme immédiatement mon classeur excel avant d'afficher les informations si mon filtre "test" est changé.
Or actuellement il ferme après avoir affiché les informations et que l'utilisateur ne clique sur une cellule vide.

Un coup de main ?

 

[cp4]

Bonjour,

Sans fichier difficile d'apporter ma petite contribution.

Bonne journée.