Sub Test()
'Figer l'écran
Application.ScreenUpdating = False
'Afficher la feuille masquée
Sheets("Calcul").Visible = True
'La_macro
'Masquer la feuille
Sheets("Calcul").Visible = False
'Réactiver l'affichage écran
Application.ScreenUpdating = True
End Sub