simplifié une vba

Sub Test()
Dim I As Integer
For I = 1 To 100
If Range("H" & I) = 1 Then Rows(I & ":" & I).EntireRow.Hidden = True
If Range("H" & I) = 0 Then Rows(I & ":" & I).EntireRow.Hidden = False
Next I
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim Derlig As Long
Derlig = Cells(Rows.Count, 8).End(xlUp).Row
For i = 1 To Derlig
    If Range("H" & i) = 1 Then
        Rows(i).EntireRow.Hidden = True
            Else
        Rows(i).EntireRow.Hidden = False
    End If
Next i
End Sub

Option Explicit
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Range("H65536").End(xlUp).Row
    Rows(i).Hidden = Cells(i, 8).Value = 1
Next i
Application.ScreenUpdating = True
End Sub