Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E36]) Is Nothing And LCase([E36]) = "oui" _
Then ThisWorkbook.Names.Add "DateOui1", Format(Date, "d/m/yyyy") ', Visible:=False 'si l'on veut masquer le nom défini
If Not Intersect(Target, [E37]) Is Nothing And LCase([E37]) = "oui" _
Then ThisWorkbook.Names.Add "DateOui2", Format(Date, "d/m/yyyy") ', Visible:=False 'si l'on veut masquer le nom défini
End Sub