Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AppliqChange Target
'---------------------------------------------------------------------------------------------------------------
' Ajoute la date et l'heure en colonne N
'---------------------------------------------------------------------------------------------------------------
If Target.Column <> 2 Then Exit Sub
If Target.Value <> "" And Cells(Target.Row, Target.Column + 12) = "" Then Cells(Target.Row, Target.Column + 12) = Date & " " & Time
End Sub