Masquer ligne très lent

Bonjour,

Je vous explique mon problème. À la fin d'une macro, je veux masquer toutes les lignes ou les cellules de la colonne A est égal à 0. Point à noter, c'est vide par une formule et non pas une cellule vraiment vide.

J'ai le code suivant. Il fonctionne, mais il prend 13 sec à exécuter, même en mode calcul manuel et sreenupdating = false

Avez-vous une idée pourquoi? Peut-être que je n'utilise pas le bon code.

Merci d'avance pour votre aide !

Dim o As Variant
Range("A9:A200").EntireRow.Hidden = False

Range("A9:A200").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next

Bonjour Vinc87

Il faut faire un filtre plutôt que de les masquer 1 par 1

a+

Bonjour BrunoM45,

Merci de ta réponse. Je n'y avais pas pensé !

Bonne journée !

Bonjour

...
Dim Cel As Range
For Each Cel In Range("A9:A200")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
Next
...

Cordialement

Merci Amadéus