Afficher la date sur un Clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("C4:C25")) Is Nothing Then
If ActiveCell.Offset(0, -1).Value Like "" Then Exit Sub
MsgBox ActiveCell.Offset(0, -1).Value, , "DATE"
End If
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
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

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C4:C25")) Is Nothing Or Target.Count > 1 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

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