For n = 2 To Sheets.Count
With Sheets(n)
der_lig = .[B65536].End(xlUp).Row
Select Case Sheets(1).ComboBox2.Value
Case "1"
.Cells.EntireRow.Hidden = False
Case "2"
For lig = 4 To der_lig
If Application.WorksheetFunction.CountIf(.Range("C" & lig & ":E" & lig), "X") = 0 Then .Rows(lig).Hidden = True
Next
Case "3"
For lig = 4 To der_lig
If Application.WorksheetFunction.CountIf(.Range("C" & lig & ":D" & lig), "X") = 0 Then .Rows(lig).Hidden = True
Next
Case "4"
For lig = 4 To der_lig
If .Range("C" & lig).Value <> "X" Then .Rows(lig).Hidden = True
Next
End Select
End With
Next