Private Sub date_arrivée_Change()
If Not IsDate(Mid(date_arrivée, 6)) Then observation_date = "": Exit Sub
Dim d As Date
d = CDate(Mid(date_arrivée, 6)) + 7 'date limite
observation_date = "Date limite " & IIf(Date <= d, d & ", il vous reste " & d - Date & " jour(s)", "expirée")
End Sub