Sub Demo()
Dim c As Boolean, Cel As Range, Lg As Integer, Ls As Integer, Plage As Range
With Feuil1
For Lg = 3 To .Range("A" & Rows.Count).End(xlUp).Row
c = False
For Each Cel In .Range("C" & Lg & ":E" & Lg).SpecialCells(xlCellTypeConstants)
If Cel.Interior.ColorIndex = 6 Or Cel.Value = "X" Then
c = True
Exit For
Else
Ls = Cel.Row
End If
Next
If c = False Then
If Plage Is Nothing Then Set Plage = .Range("A" & Ls & ":F" & Ls)
Set Plage = Application.Union(Plage, .Range("A" & Ls & ":F" & Ls))
End If
Next
End With
Plage.ClearContents
End Sub