Masquer plusieurs lignes

Bonjour, je souhaiterais masquer, dans un tableur excel, toutes les lignes contentant le mot FAUX, et conserver les lignes avec le mot VRAI. J'ais tenté de coder ça comme ci dessous, mais rien ne se passe:

Sub Cacher()

Dim i As Integer
Dim j As Integer
Dim Compt As Integer

Compt = 1

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

j = 2

    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
        j = j + 1
    Next i
End Sub

Le nombre de lignes étant suceptible d'être modifié, j'ais repris un while pour pas avoir à modifier l'indice en cas de boucle for, mais pas sur que ça soit bon :s