Sub Effacer()
Application.ScreenUpdating = False
col = Array(4, 10, 16, 22)
For C = 0 To UBound(col)
For L = 1 To 100
If Cells(L, col(C)) <> "" Then
If Cells(L, col(C)).Interior.Color = RGB(217, 255, 250) Then Cells(L, col(C)) = ""
End If
Next L
Next C
End Sub