Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next 'sécurité
If IsDate([C8]) Then
[A10] = "jetons"
If CDate([C8]) < CDate("01/01/2003") Then
[D10:G10] = ""
ElseIf CDate([C8]) >= CDate("01/01/2003") Then
[D10] = "mettre x si invité xxxxxxxx"
If UCase([E10].Text) = "X" Then
[F10] = "cocktails xxxxxxxxxxxxxxxxxxxxxxxxxx"
Else
[E10:G10] = ""
End If
End If
Else
[A10:G10] = ""
End If
Application.EnableEvents = True
End Sub