Macro très longue à s'effectuer

Bonjour à toutes et à tous,

Je crée un outil budgétaire avec 20 "établissements" l'un en dessous de l'autre, et qui représentent quelques 1 500 lignes.

Ces 20 établissements doivent se consolider en fin de sheet.

Pour chaque établissement, j'ai plusieurs prestations qui peuvent être vendues ou non.

Les prestations qui ne sont pas vendues doivent être masquées.

J'ai donc deux macros, une qui masque les lignes à zéro, l'autre qui réaffiche toutes les lignes (dans l'onglet "Effectifs Variables").

A cause d'un nombre importants de liens et de formules sur différents onglets, la macro qui masque les lignes prend 3 secondes pour masquer une seule ligne.

Ce qui prend donc plus d'une heure pour masquer 1 500 lignes.

Auriez-vous par hasard une solution à mon problème afin d'effectuer cette macro de façon très rapide ?

Mon fichier est très lourd, environ 4 Mo, je vous transmets une version allégée sans une quinzaine d'onglets dans la même veine. Sur cette exemple, la macro est assez rapide à s'effectuer.

Je vous remercie à tous, par avance pour votre aide,

Bien à vous,

Bonjour,

Un essai ... > est-ce mieux ...

Sub Masque_lig()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For Each cellule In [S10:S1354]
        If cellule.Value = "0" Then cellule.EntireRow.Hidden = True
    Next cellule
    Application.Calculation = xlCalculationAutomatic
End Sub

ric

Bonjour Ric,

Merci pour votre aide précieuse, vous êtes un génie !!

Tom