Private Sub CommandButton1_Click()
Dim motif As String
If Not Intersect(Selection, Range("F4:T20")) Is Nothing Then
ActiveSheet.Unprotect Password:=""
If Selection.Interior.ColorIndex = 43 Then
Selection.Interior.ColorIndex = 43
Else
Selection.Interior.ColorIndex = 23
End If
Cancel = True
ActiveSheet.Protect Password:=""
End If
End Sub