Sub CLEAR()
Dim C As Range
For Each C In Sheets("Feuil1").UsedRange
With C.Interior
.ColorIndex = IIf(.ColorIndex = 15, xlNone, .ColorIndex)
.ColorIndex = IIf(.ColorIndex = 16, xlNone, .ColorIndex)
.ColorIndex = IIf(.ColorIndex = 24, xlNone, .ColorIndex)
.ColorIndex = IIf(.ColorIndex = 48, xlNone, .ColorIndex)
.ColorIndex = IIf(.ColorIndex = 56, xlNone, .ColorIndex)
End With
Next C
End Sub