Saisie automatique date

Bonjour,

j'ai récupérer une formule permettant d'horodater automatiquement une cellule B quand je remplie la cellule A

Code: Private Sub Worksheet_Change(ByVal Target As Range)
' Affiche la date en colonne 2 lorsque la colonne 1 est modifiée

If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Now
End If

End Sub

est ce qu'il est possible d'avoir la même formule sans les heures? donc uniquement la date?

Merci par avance.