Private Sub TextBox10_Change()'---date Départ
es
End Sub
Private Sub TextBox11_Change()'----Date arrivée
es
End Sub
Private Sub TextBox12_Change()'----durée nbr de jours
es
End Sub
Sub es()
If TextBox10 <> "" And TextBox11 <> "" Then _
TextBox12.Value = IsDate(TextBox11) - IsDate(TextBox10) Else TextBox12 = ""
End Sub