Private Sub Workbook_Open()
Dim dteInvent As Date
dteInvent = Feuil1.Range("A1")
If dteInvent >= Date Then
Message = IIf(dteInvent > Date, "Attention, le prochain inventaire aura lieu dans " & Int(dteInvent - Now + 1) & " jours", _
"Attention! Journée Inventaire")
MsgBox Message
Else
MsgBox "Attention! Vous avez " & Date - dteInvent & " jours de retard!"
End If
End Sub