''Affichage du prix total
If IsNumeric(Me.PU1) = True Then
Me.PT1 = CDbl(Me.PU1) * CDbl(Me.QU1)
End If
If IsNumeric(Me.PU2) = True Then
Me.PT2 = CDbl(Me.PU2) * CDbl(Me.QU2)
End If
If IsNumeric(Me.PU3) = True Then
Me.PT3 = CDbl(Me.PU3) * CDbl(Me.QU3)
End If
If IsNumeric(Me.PU4) = True Then
Me.PT4 = CDbl(Me.PU4) * CDbl(Me.QU4)
End If
If IsNumeric(Me.PU5) = True Then
Me.PT5 = CDbl(Me.PU5) * CDbl(Me.QU5)
End If