Option Explicit
Sub Date_OK_pas_OK()
If Date < DateSerial(2015, 12, 31) Then
MsgBox "Tarifs OK."
' suite du code permettant l'accès aux tarifs
Else
MsgBox "Veuillez utiliser le nouveau fichier avec les tarifs de 2016 !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub