Masquer afficher une ligne en fonction de la valeur d'une cellule

Bonjour à tous!

Je sais que se sujet à déjà été traité, et sa m'a permis de trouver une formule qui fonctionne. Malheureusement c'est beaucoup plus long que si je faisais la manip manuellement (entre 10 et 15 minutes en fonction de la puissance des PC).

Voici le besoin:

Controler les cellules de la colone A, entre la ligne 4 et 1649,

Si c'est un "F", masquer la ligne, Sinon la montrer.

Voici la formule:

Private Sub masquer_balance_0_cpt1_Click()
Application.ScreenUpdating = False
Dim cellule As Range
For Each cellule In Range(" A4:A1649 ")
If cellule.Value = "F" Then
cellule.EntireRow.Hidden = True
Else
cellule.EntireRow.Hidden = False
End If
Next cellule
End Sub

Je ne comprends pas comment sa peut être aussi long.

Voici une image:

Je vous met également le fichier pour que se soit plus compréhensible. (en fait le fichier est trop lourd désolé 2.31 Mo)

mais peut-être que quelqu'un pourra quand même trouver pourquoi sa demande autant de réflexion à l'ordinateur.

Merci d'avance

Après suppression de plein d'onglets inutiles au forum, voici le fichier:

Bonjour,

Votre macro modifiée:

Private Sub masquer_balance_0_cpt1_Click()
    Dim i As Long, DerLig As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim cellule As Range
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = DerLig To 4 Step -1
        If Cells(i, "A") = "F" Then
            Rows(i).EntireRow.Hidden = True
        Else
            Rows(i).EntireRow.Hidden = False
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
End Sub

Cdlt

Bonjour à tous,

Pas vraiment besoin de macro.

Sélectionnes A4:I2000 (nombre maxi de lignes que tu penses atteindre) et active 'Filtrer' dans 'Trier et filtrer'
Ca t'ajoute une liste déroulante à droite de A4 où tu désélectionnes les "F" et tu valides par Ok.
C'est instantané
eric

Merci Arturo83 et eriiic, vos deux solutions fonctionnes à merveille!