Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Unprotect Password:="TOTO"
If Not Application.Intersect(Target, Range("G14:H90")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 46 Then
Selection.Interior.ColorIndex = 48
Else
Selection.Interior.ColorIndex = 46
Protect Password:="TOTO"
End If
End With
End If
End Sub