XL 2016 Problème avec date heure

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("c5:c1000"), Target) Is Nothing Then
  lig = Cells(Rows.Count, 3).End(xlUp).Row
   For i = 5 To lig
   If Cells(i, 2) <> IsNumber Then
   Cells(i, 2).Value = Cells(i, 2).Value
   End If
   Next
End If
End Sub

Application.Iteration = True

Application.Iteration = false

Private Sub Worksheet_Change(ByVal Target As Range)
Dim colA As Range, colB As Range, colD As Range, decal&, i&
Set colA = [Tableau2].Columns(1).Cells
Set colB = [Tableau2].Columns(2).Cells
Set colD = [Tableau2].Columns(4).Cells
Set Target = Intersect(Target, Union(colA, colB, colD))
If Target Is Nothing Then Exit Sub
decal = colA.Row - 1
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target
    i = Target.Row - decal
    If colB(i) = colD(i) Then colA(i) = Now Else colA(i) = ""
Next
Application.EnableEvents = True 'réactive les évènements
End Sub