Set plage = Range("[COLOR=blue]I[/COLOR]1:[COLOR=blue]K[/COLOR]" & Range("[COLOR=blue]I[/COLOR]65536").End(xlUp).Row)
For Each cel In plage
If cel.Interior.ColorIndex = 22 Then
cel.Interior.ColorIndex = [COLOR=blue]xlNone[/COLOR]
cel.Value = ""
End If
Next cel