Masquer lignes selon critère : problème de rapidité

Bonjour à tous,

J’utilise un code VBA qui masque des lignes selon un critère (critère différent à chaque ligne).

Sub Masquer_lignes()
Application.ScreenUpdating = False
Sheets("DOC FINAL").Select
Rows("16:1182").Hidden = False
Range("A16:A1182").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next
End Sub

Le code fonctionne mais il prend un temps fou…car il répète l’opération pour plus de 1'000 lignes.

Existe-il une autre option qui permettrait de gagner considérablement du temps ?

D’avance merci pour votre aide…

Bonjour,

Le code fourni s'exécute en moins d'une seconde.

Le code réel comprend-il plus d'instructions ?

Cordialement

Bouben

Bonjour Bouben,

Le fichier en lui-même est passablement chargé de formule, c'est à mon avis pour ceci qu'il est si lent...et non pas la macro.

Désolé de vous avoir dérangé, et merci pour votre retour.

Cordialement,