Private Sub Workbook_Open()
If Date >= "14/11/2017" And Date <= "30/11/2017" Then
'
'
'
' suite de la macro
'
'
'
'
'
End If
End Sub
Private Sub Workbook_Open()
If Date >= DateSerial(Year(Now), 11, 15) And Date <= DateSerial(Year(Now), 11, 30) Then
'
'
'
'
' suite de la macro
'
'
'
End If
End Sub