La TextBox9 (Nuits) est renseignée par la procédure date1.
Il suffit donc que tu ajoute dans cette procédure l'instruction pour renseigner la TextBox10 (Unités)
Sub date1()
If IsDate(Me.TextBox2) And IsDate(Me.TextBox3) Then
Me.TextBox9 = CDate(Me.TextBox3) - CDate(Me.TextBox2)
Me.TextBox10 = Me.TextBox9
End If
End Sub
A+