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