XL 2010 Colorer en jaune après un premier clic, puis en vert en un second, puis décolorer (boucle)

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge > 1 Then Exit Sub
Dim x
x = Target.Interior.color
Application.EnableEvents = False
    Select Case x
      Case 65535
        Target.Interior.color = 65280
      Case 65280
        Target.Interior.color = 250
      Case 250
        Target.Interior.color = xlNone
      Case 16777215
        Target.Interior.color = 65535
    End Select
Application.EnableEvents = True
Cancel = True
End Sub