Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Nb1 As Integer, Nb2 As Integer
Nb1 = 0
Nb2 = 0
With ActiveWorkbook.SlicerCaches("Segment_NATCOAGT")
For i = 1 To .SlicerItems().Count
If .SlicerItems(i).HasData Then Nb1 = Nb1 + 1
If .SlicerItems(i).Selected Then Nb2 = Nb2 + 1
Next
End With
With ActiveSheet
If Nb1 = 1 Or Nb2 = 1 Then
.Columns("C").EntireColumn.Hidden = True
' Ne fonctionne pas correctement (temps de latence)
' ActiveSheet.PivotTables("TCD").RowGrand = False
Else
.Columns("C").EntireColumn.Hidden = False
' Ne fonctionne pas correctement (temps de latence)
' ActiveSheet.PivotTables("TCD").RowGrand = True
End If
End With
Application.ScreenUpdating = True
End Sub