Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Couleur As Long
Select Case Target.Value
Case "": Valeur = 8: Couleur = 1
Case 8: Valeur = 4: Couleur = 2
Case 4: Valeur = "": Couleur = 3
End Select
Target.Interior.Color = Choose(Couleur, RGB(255, 0, 0), RGB(237, 125, 49), RGB(255, 255, 255))
Target = Valeur
With Target.Font
.Name = "Arial"
.Size = 11
End With
With Target
.HorizontalAlignment = xlCenter
End With
Cancel = True
End Sub