Me et ligne masquées -VBA excel

Sub lignemasque()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim derligne As Long
Dim i As Integer
derligne = Range("A65536").End(xlUp).Row 'dernière ligne A
    Set FL1 = Worksheets("Sommaire") 'a adapter le nom de la feuille
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To derligne
        Var = FL1.Cells(NoLig, NoCol)
         If Rows(NoLig & ":" & NoLig).EntireRow.Hidden = True Then
       MsgBox "ligne: " & NoLig
       i = i + 1
         End If
      Next
    Set FL1 = Nothing
MsgBox "Nombre de lignes masquées: " & i
End Sub