Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [Tableau1[Statuts]]) Is Nothing Then
If Target <> "" And Cells(Target.Row, 1 + Target.Column) = "" Then Cells(Target.Row, 1 + Target.Column) = Date
End If
End Sub