Au clic d'une cellule, effacer sa valeur et sa couleur

Bonjour,

Lorsque je clique sur une cellule de la plage F9:O28, j'ai réussi à faire en sorte que la cellule prenne la valeur 1 et la couleur noire comme je le souhaitais grâce au code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("F9:O28")) Is Nothing Then

Target.Value = 1

Target.Interior.ColorIndex = 1

End If

End Sub

J'aimerais à présent que lorsque je re-clique sur la cellule, que celle-ci redevienne sans couleur et sans valeur, c'est à dire en gros d'annuler mon premier clique.

Merci à celles et ceux qui étudieront mon cas et qui pourront compléter mon code

Bonjour

essayez ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F9:O28")) 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

Cordialement

Parfait !

Merci Dan