Microsoft 365 Userform Actualisation de calcul

Bonjour,
J'ai un userform nommé "UsfProduit" dans lequel j'aimerais qu'à chaque changement de prix de revient d'une catégorie, exemple plante ou pot ou plaque etc...
La textbox "CoutRevient" recalcul automatiquement le code suivant en sachant que toutes les catégories ne sont pas obligatoirement remplies à chaque fois.

Private Sub PRPlante_Change()
On Error Resume Next
PRPlante.Value = Format(PRPlante.Value, "0.000 €")
With CoutRevient
.Value = 0
.Value = Format(CDbl(PrixAchatPlante) + (CDbl(PrixAchatPlante) * CDbl(TransPlante)) + CDbl(PrixPot) + (CDbl(PrixPlaque) / CDbl(NbPlantePlaque)) _
+ (CDbl(TxtCoutHrMO) * CDbl(TxtTempsMO)) + CDbl(PrixChromo) + CDbl(PrixEntourage) + CDbl(PrixEtiquette) + CDbl(PrixCdt) + CDbl(TxtSoie) + CDbl(TxtCordelette) + _
CDbl(TxtEtiquetteCarton) + CDbl(Mousseline) + CDbl(Kraft) + CDbl(DsSmith) + CDbl(TxtPrixAccessoire) + (CDbl(PoidsPlante) * CDbl(PrixKgPlante)), "0,00 €")
End With
End Sub
Voilà 3 heures que j'essaie un peu tout et je ne m'en sors pas!!!
Merci beaucoup pour votre aide une nouvelle fois.
Eric