comment virer (effacer) les lignes ou aucune côte n'est coloré de jaune ? [résolu]

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