Salutation,
C'est pas que je ne veux pas mettre votre proposition, seulement essai aprés essai, j'ai découvert ceci :
(application.dislpayalerts=false)
J'ai rectifier avec cela :
Private Sub Workbook_Open()
'la date d'expiration
DateExpiration = DateSerial(2021, 1, 31) ' <= choisissez la...