Sub Mask()
Dim Message As String, i As Long
Message = ""
For i = 1 To 65536
If ActiveSheet.Rows(i).Hidden Then Message = Message & i & Chr(10)
Next i
If Message <> "" Then MsgBox "Lignes masquées :" & Chr(10) & Message
End Sub
Sub LigNesMasQuées()
Dim C As Range
For Each C In Range("A:A")
If C.RowHeight = 0 Then C.EntireRow.Offset(-1, 0).Interior.ColorIndex = 3
Next C
End Sub