Private Sub TextBox25_AfterUpdate()
TextBox28.Value = Format((TextBox25.Value / 100 * 100), "##0.00")
TextBox27.Value = Format(round(((1 + TextBox23 / 100) ^ 3 / ((1 + TextBox26 / 100) * (1 + TextBox28 / 100)) - 1) * 100 / 0.05, 0) * 0.05 / 100, "##0.00") 'l'arrondissement ne fonctionne pas
End Sub