Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
For n = 11 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(Target.Row, n) <> "" And n <> Target.Column And Cells(2, n) = "Entrée" Then
Cells(Target.Row, n + 1) = Date
Cells(Target.Row, n) = ""
End If
Next
Application.EnableEvents = True
End Sub