Bonjour à tous.

J'ai créé une application sous Excel qui fonctionne. Par contre, le fichier (qui pèse 1534Ko) met presque 3 minutes à se charger et il me faut autant de temps quand je quitte Excel. Pourquoi ?

Code VBA pour l'ouverture :
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
Sub Auto_Open()
With Application
    .ScreenUpdating = False
    .DisplayFormulaBar = False
    .DisplayStatusBar = False
    .CommandBars("Formatting").Visible = False
    .CommandBars("Standard").Visible = False
    .CommandBars("PivotTable").Visible = False
    .CommandBars("WordArt").Visible = False
    .CommandBars("Reviewing").Visible = False
    .CommandBars("Picture").Visible = False
    .CommandBars("Chart").Visible = False
    .CommandBars("Web").Visible = False
    .CommandBars("Forms").Visible = False
    .CommandBars("External Data").Visible = False
    .CommandBars("Drawing").Visible = False
    .CommandBars("Visual Basic").Visible = False
    End With
End Sub
Code VBA pour la fermeture :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("SUIVI").Select
Range("A1").Select
 
ThisWorkbook.Saved = True
 
With Application
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
    .CommandBars("Formatting").Visible = True
    .CommandBars("Standard").Visible = True
    .ScreenUpdating = True
    End With
End Sub
Rien d'extraordinaire il me semble. Pourtant, lorsque je mets un point d'arrêt pour la fermeture, je constate que la sauvegarde se fait instantanément et que plus rien ne se passe, pendant presque 3 minutes lorsque l'appli quitte la ligne End Sub. J'ai parfois l'impression qu'il exécute une sous-routine ou quelque chose comme ça.

Quelqu'un a une idée ?