==>> Fct MAINTENANT

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:A2000")) Is Nothing Then
        Cancel = True
        mavariable = Target.Row
        If Range("J" & mavariable).Value <> "" Then
        Exit Sub
        Else
        If Range("A" & mavariable).Value <> "" Then
        Range("J" & mavariable).Value = Date
        End If
    End If
    End If
    End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
mavariable = Target.Row
mavariable2 = Target.Column
        If Range("J" & mavariable).Value <> "" Then
        Exit Sub
        Else
        If mavariable2 = 1 Then
        Range("J" & mavariable).Value = Date
        End If
        End If
End Sub