aide formule macro affichage date saisie

Hello le forum

je cherche a afficher en colonne A la date et lheure de saisie de la colonne B

voici mon code, cependant ce dernier ne fonctionne pas et je narrive pas a savoir pourquoi...

Jai besoin de votre expertise!

Merci davance!


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Target.Column = 2 Then
Target.Offset(0, -1) = Format(Now, "dd/mm/yy-hh:nn:ss")
End If
Application.EnableEvents = True

End Sub