Sub MasqueColonne()
Application.ScreenUpdating = False
DerLig = Application.WorksheetFunction.CountA(Range("A1:A10000"))
For i = 2 To DerLig Step 3
Application.StatusBar = "Ligne : " & i & " sur " & DerLig
If Range("D" & i + 1).Interior.Color = RGB(255, 0, 0) And Range("D" & i + 2).Interior.Color = RGB(255, 0, 0) Then
Range("D" & i + 1).EntireRow.Hidden = True
Range("D" & i + 2).EntireRow.Hidden = True
End If
Next i
Application.StatusBar = ""
End Sub
Sub DemasqueTout()
Range("A1:A10000").EntireRow.Hidden = False
End Sub