Sub testII()
Dim FIN_PERIODE_ESSAI As Date
FIN_PERIODE_ESSAI = DateSerial(2008, 3, 1)
If Date > FIN_PERIODE_ESSAI Then
MsgBox ("Période d'essai terminée")
ActiveWorkbook.Close
End If
MsgBox "Votre période d'essai se termine dans:" & _
Chr(13) & Chr(13) & vbTab & FIN_PERIODE_ESSAI - Date & " jour(s).", vbCritical, "ATTENTION"
End Sub