Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [tableau1[Status]]) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(, 1) = "": Target.Offset(, 2) = "": Exit Sub
Target.Offset(, 1) = Date
Target.Offset(, 2) = Environ("username")
End Sub