XL 2013 Insert une date au moment de la saisie

Ste20 à dit:

Bonjour, je viens demander une aide concernant un code VB. J'aimerais qu'une date s insère au moment ou je saisie la colonne speudo dans une Col. + 1. un fichier exemple.

Code:

Private Sub Worsheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C3:C200"), Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
               Target.Offset(0, 1) = Now
        Application.EnableEvents = True
    End If
End Sub

Cliquez pour agrandir...