Bonjour et je vous présente meilleurs vœux pour cette année 2015

Voici ma problématique

Lorsque je double-clique sur un TCD pour obtenir le détail, une feuille se génére. Je consulte et je supprime cette feuille ("Feuil1").
Sauf qu'après suppression, je ne peux plus cliquer soit sur le ruban ou sur une cellule ou sur le scrollbar. Excel reste figé.

Pour info et je ne sais pas si cela a une incidence, le TCD est actualisé par une macro dont voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Worksheet_Activate()
 
Dim Pt As PivotTable
 
Dim LActivitee As String
Dim LLibellee As String
Dim LComptee As String
 
 On Error GoTo errorHandler
 
 Application.ScreenUpdating = False
 
 
 
'******************************************************************************************************
''*****************************************************************************************************
'''****************************************************************************************************
 
LActivitee = Worksheets("TCD ").Range("C1").Value
LLibellee = Worksheets("TCD ").Range("C2").Value
LComptee = Worksheets("TCD ").Range("C3").Value
 
 
 
 Set Pt = Worksheets("TCD ").PivotTables("GLBis")
With Pt
 
                With Pt.PivotFields("Activité")
                    .ClearAllFilters
                    .CurrentPage = LActivitee
                End With
 
                With Pt.PivotFields("Libellé_synergie")
                    .ClearAllFilters
                    .CurrentPage = LLibellee
                End With
 
               With Pt.PivotFields("Compte")
                    .ClearAllFilters
                    .CurrentPage = LComptee
                End With
 
End With
 
 ThisWorkbook.RefreshAll
 
 
 
 
Set Pt = Nothing
 
 
 
errorHandler:
Exit Sub
 
 
Application.ScreenUpdating = True
 
End Sub
Dois je saisir un code au "desactivate" de la feuille TCD?

Merci de votre aide