XL 2013 Masquer une ligne en fonction d'un critere

Sub Masque()
    Application.ScreenUpdating = False
    For L = Range("A65500").End(xlUp).Row To 2 Step -1
        If Cells(L, "H") = "OUI" Then Rows(L & ":" & L).Hidden = True
    Next L
End Sub
Sub Demasque()
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    [A1].Select
End Sub

Sub Tab_Masque()
    [Tableau1].AutoFilter Criteria1:="<>OUI", Field:=[Tableau1].ListObject.ListColumns("Termines").Index
End Sub
Sub Tab_Demasque()
    [Tableau1].AutoFilter Field:=[Tableau1].ListObject.ListColumns("Termines").Index
End Sub