XL 2016 Insertion date sous condition

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E1:E1000")) Is Nothing Then     ' Adapter la zone active
        If LCase(Target) = "oui" Then Cells(Target.Row, "A") = Date ' Adapter la colonne où se trouve la date
    End If
Fin:
End Sub

Sub Macro3()
  Application.ScreenUpdating = 0
  [D1].Select: Columns("A:D").AutoFit
  With Worksheets("Feuil1").ListObjects("Tableau1")
    If Not .DataBodyRange Is Nothing Then _
      Rows(2).Resize(.ListRows.Count).AutoFit
  End With
End Sub

Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 3 Then Exit Sub
    If .Row <> 1 Then .Offset(, 1) = _
      IIf(.Value = "OUI", Date, Empty)
  End With
End Sub