Option Explicit
Sub Couleurs_supprimer()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "a").End(xlUp).Row To 9 Step -1
If Range("a" & i).Offset(, 1).Resize(, 31).Interior.Color <> xlNone Then Range("a" & i).Offset(, 1).Resize(, 31).Interior.Color = xlNone
Next i
Application.ScreenUpdating = True
End Sub