Private Sub UserForm_Activate()
Dim Wsh As Worksheet, RngDon As Range, T(), L As Long, C As Long, RngLig As Range, RngMsk As Range
For Each Wsh In ThisWorkbook.Worksheets
Set RngDon = Wsh.UsedRange: If RngDon.Rows.Count = 1 And RngDon.Columns.Count _
= 1 Then ReDim T(1 To 1, 1 To 1): T(1, 1) = RngDon.Value Else T = RngDon.Value
For C = 1 To UBound(T, 2) - 1
If T(1, C) = "Roc" And T(1, C + 1) = "Cor" Then Exit For
Next C
If C < UBound(T, 2) Then
Set RngMsk = Nothing
For L = 2 To UBound(T, 1)
If T(L, C) = 0 And T(L, C + 1) = 0 Then
Set RngLig = RngDon.Rows(L).EntireRow
If RngMsk Is Nothing Then Set RngMsk = RngLig Else Set RngMsk = Union(RngMsk, RngLig)
End If: Next L
If Not RngMsk Is Nothing Then RngMsk.EntireRow.Hidden = True
End If
ListBox1.AddItem Wsh.Name
Next Wsh
End Sub