Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D4:O25")) Is Nothing Then
With Target.Interior
.ColorIndex = IIf(.ColorIndex = 16, 4, 16)
End With
End If
If Intersect(Target, Range("C4:C25")) Is Nothing Then Exit Sub
With Target.Offset(0, -1)
.Value = IIf(IsEmpty(.Value), "Prélever le : " & Format(Date, "dddd d mmmm yyyy"), "")
End With
End Sub