Private Sub Worksheet_Change(ByVal Target As Range)
If Target.MergeArea.Address(0, 0) = "E1:F1" Then
If Lcase(Target.Cells(1).Value) = "date" Then
Feuil1.[D10] = Date
Else
If IsDate(Target.Cells(1).Value) Then Feuil1.[10] = Target.Cells(1).Value
End If
End If
End Sub