1 click mettre cellule couleur

Bonjour première expérience sur un forum.

j ai un tableau exel avec série de chiffre a mettre en couleur en 1 click j ai la formule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Interior
.ColorIndex = 8 
.Pattern = xlSolid
End With
End Sub

mais si je me trompe de chiffre  et je veut enlever la couleur impossible de retirer la couleur  il me manque quoi. jai aussi cette version mais il ne prend pas.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Not Intersect(Target, Range() 
Is Nothing Then Select Case Target 
Case Is = 0: Target.value = 1: Target.Interior.ColorIndex = 1 
Case Is = 1: Target.ClearContents: Target.Interior.ColorIndex = 0 
End Select
 End If 
End Sub

merci du coup main

Bonjour,

Un essai ...

La première fois que tu cliques dans une cellule, elle se colore.

La deuxième fois que tu cliques dans cette cellule, la couleur est enlevée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:H99")) Is Nothing Then
      Select Case Target
         Case Is = 0: Target.Value = 1: Target.Interior.ColorIndex = 1
         Case Is = 1: Target.ClearContents: Target.Interior.ColorIndex = 0
      End Select
   End If
End Sub

ric

MERCI c est exactement ca Bravo