Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1], Target) Is Nothing Then [A2] = Date
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A10:A" & [A65000].End(xlUp).Row), Target) Is Nothing Then Target.Offset(0, 1) = Date
End Sub
Sheets("ARTICLE").Range("b65536").End(xlUp).Offset(0, 8).Value = UserFormArt.TextBoxP & ""
Sheets("ARTICLE").Range("b65536").End(xlUp).Offset(0, 8).Value = UserFormArt.TextBoxP & ""
With Sheets("ARTICLE").Range("b65536").End(xlUp)
.Offset(0, 8).Value = UserFormArt.TextBoxP & ""
.Offset(0, 9).Value = Date
End With