Coloration verte après un double clic, rouge après deux

[COLOR="Yellow"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/COLOR]
    Dim c As Long, i As Long
    If Intersect(Target, Union([Felkig])) Is Nothing Then Exit Sub
    c = Target.Interior.ColorIndex
    For i = 1 To Range("palette").Count
        If Range("palette").Cells(i, 1).Interior.ColorIndex = c Then
            Target.Interior.ColorIndex = Range("palette").Cells(i + 1, 1).Interior.ColorIndex
            Target.Font.ColorIndex = Range("palette").Cells(i + 1, 1).Font.ColorIndex
            i = Range("palette").Count
            Cancel = True
        End If
    Next i
End Sub