Masquer plusieurs lignes VB

Bonjour, je souhaite masquer les lignes d'un tableur contenant "FAUX" dans la colonne D et conserver les lignes contenant VRAI. J'ais tenté de coder ça mais rien ne se passe :s

Dim i As Integer
Dim Compt As Integer

Compt = 1

While Cells(Compt, 4).Value <> ""
    Compt = Compt + 1
Wend



    For i = 2 To Compt - 1
        If Cells(i, 4) = "FAUX" Then Rows(i).Hidden = True
        If Cells(i, 4) = "VRAI" Then Rows(i).Hidden = False
       
    Next i

Le while étant la car je n'ais pas de nombre de ligne prédéfinis, mais j'suis débutant donc pas sur que ça ait été bien compris :s
Cordialement,