renvoie l heure

boujour a tous

J ai se code vba sur la feuille qui me renvoie la date, mais je voudrais renvoyé l heure.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then
Cells(Target.Row, 5) = Date
End If
End Sub

Merci de vos réponse
A+ Marc