Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range
Set MaPlage = Range("C3:C5000")
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, MaPlage) Is Nothing And Target.Value <> "" Then
Target.Offset(, -2) = Day(Now)
Target.Offset(, -1) = Format(Now(), "mmmm")
End If
End Sub