[COLOR=blue]Sub[/COLOR] test()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("test 1 ")
Coul = .Range("B5").Interior.ColorIndex
[COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] 40
[COLOR=blue]For[/COLOR] j = 29 [COLOR=blue]To[/COLOR] 2 [COLOR=blue]Step[/COLOR] -1
[COLOR=blue]If[/COLOR] .Cells(i, j).Interior.ColorIndex = Coul [COLOR=blue]Then[/COLOR] .Cells(i, j).Delete Shift:=xlToLeft
[COLOR=blue]Next[/COLOR] j
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]