Const NbrLignes = 10000
Sub REV()
Dim i&, t, xcell, deb As Double
deb = Timer
Application.ScreenUpdating = False
With Worksheets("CSN Data").Range("a8:ds" & NbrLignes)
For i = 1 To .Columns.Count
t = .Columns(i).Value
For Each xcell In .Columns(i).Cells
If xcell.Interior.ColorIndex = xlNone Then t(xcell.Row - 7, 1) = Empty
Next xcell
.Columns(i).Value = t
Next i
End With
MsgBox Format(Timer - deb, "0.00\ sec.")
End Sub