VBA Calcul

Question

Bonjour,

J'ai 4 codes dont 3 qui fonctionnes.

montant= OK

tps= OK

tvq= OK

total = je ne réussi pas à faire l'addition de montants, tps et tvq

'Montant

Private Sub montant_AfterUpdate()
Me.montant.Value = Format(Me.montant.Value, "# ###.00$")
End Sub

'Calcul de la TPS
Private Sub tpspourc_AfterUpdate()
    If Me.tpspourc <= 99 Then
    Me.tpspourc.Value = "0." & Format(Me.tpspourc.Value, "####00") & "%"
    Me.tps = Val(Me.montant) * Val(Left(Me.tpspourc, Len(Me.tpspourc) - 1))
    Me.tps.Value = Format(Me.tps.Value, "# ###.00$")
    Else
    MsgBox ("Vous avez entr? le mauvais format de % !")
    Me.tpspourc = ""
    End If
End Sub
'Calcul de la TVQ
Private Sub tvqpourc_AfterUpdate()
    If Me.tvqpourc <= 9999 Then
    Me.tvqpourc.Value = "0.0" & Format(Me.tvqpourc.Value, "#####00") & "%"
    Me.tvq = Val(Me.montant) * Val(Left(Me.tvqpourc, Len(Me.tvqpourc) - 1))
    Me.tvq.Value = Format(Me.tvq.Value, "# ###.00$")
    Else
    MsgBox ("Vous avez entr? le mauvais format de % !")
    Me.tvqpourc = ""
    End If
End Sub

'Somme total
Private Sub total_AfterUpdate()
Me.total = Val(Me.montant) + Val(Me.tps) + Val(Me.tvq)
Me.total.Value = Format(Me.total.Value, "#####.00$")
End Sub

Avez-vous une idée de ce qui cloche?