Private Sub TextBox_Durée_Change()
TextBox_Date_Retour = ""
If IsNumeric(TextBox_Durée) And IsDate(TextBox_Date_Départ) Then _
TextBox_Date_Retour = Format(CDate(TextBox_Date_Départ) + TextBox_Durée - 1, "dd/mm/yyyy")
End Sub
Private Sub TextBox_Date_Départ_Change()
TextBox_Durée_Change
End Sub