XL 2010 cellule entre 2 couleurs via vba ou formule

Option Explicit

Sub Test()
Dim L As Long, Cel As Range, Supprimer As Boolean, SupprSuiv As Boolean
ActiveSheet.[A1.A17].Copy ActiveSheet.[C1.C17]
For L = 17 To 1 Step -1
  Set Cel = ActiveSheet.Cells(L, "C")
  Select Case Cel.Interior.Color
  Case &HFF&: Supprimer = True: SupprSuiv = True
  Case &H50B000: SupprSuiv = False
  End Select
  If Supprimer Then Cel.Delete xlShiftUp
  Supprimer = SupprSuiv: Next L
End Sub

Sub SupCoul()
Dim i As Long, DerL As Long
DerL = Range("A" & Rows.Count).End(xlUp).Row
For i = DerL To 1 Step -1
    If Cells(i, 1).Interior.ColorIndex = 10 Then
        x = i + 1
        While Cells(x, 1).Interior.ColorIndex <> 3
            x = x + 1
        Wend
        Range(Cells(i, 1), Cells(x, 1)).Delete Shift:=xlUp
    End If
Next
End Sub