Private Sub Tb6_Change()
Dim Taux As Double
Dim Paiement As Integer
Dim Montant As Double
Dim Duree As Integer
Dim Annuite As Integer
Dim Amort As Double
Taux = Tb2.Value
Paiement = Tb4.Value
Montant = Tb1.Value
Duree = Tb3.Value
If Cb1.Value = "1" Then
Amort = 0
Annuite = Pmt((Taux / Paiement), Paiement, Montant)
Else
Annuite = 0
Amort = Montant / Duree
End If
End Sub