Liste déroulante UserForm VBA- Feuille conditionnelle (Affectant un résultat

Bonjour a tous

j'ai bien avancé sur mon projet mais je rencontre un souci au niveau de mon Userform vba et ma feuille de calcul.
Je m'explique :
Dans mon classeur, j'ai une feuil CALCUL_DEVIS avec 2 listes déroulantes (DesignationPro et TypeImpression) dont les données se trouve dans une autre feuil TABLEAU COÛT. J'ai ensuite créer un UserForm avec 2 listes déroulantes.
Tout fonctionne jusque là seulement au niveau de ma UserForm lorqu'un choix est fait il ne change pas dans ma feuil CALCUL_DEVIS au niveau des listes déroulantes (DesignationPro et TypeImpression) et n'affecte pas le résultat dans les colonnes "Coût Total HT Livrer Plat" et "Coût Total HT Façonner".
Quel est la solution à ce problème je colle le Code de mon UserForm ci-dessous :
----------------------------------------------------------------------------------
Private Sub CommandButtonCalcul_Click()
Range("CALCUL_DEVIS!FormatHauteur").Value = TextHauteur.Value
Range("CALCUL_DEVIS!FormatLargeur").Value = TextLargeur.Value
Range("CALCUL_DEVIS!Quantitee").Value = TextQuantite.Value
TextCoutaplatht.Value = Range("CALCUL_DEVIS!PrixUnitAplat").Value
TextCoutfaconnht.Value = Range("CALCUL_DEVIS!CoutTotalhtFaconn").Value
ComboDesignation.Value = Range("CALCUL_DEVIS!DesignaListDerou")
ComboTimpression.Value = Range("CALCUL_DEVIS!ModelImpListeDerou")
TextNbreVpp.Value = Range("CALCUL_DEVIS!NombrePose")
TextNbrePi.Value = Range("CALCUL_DEVIS!NombrePlanches")

End Sub

Private Sub UserForm_Initialize()
ComboDesignation.RowSource = ("DesignationProd")
ComboTimpression.RowSource = ("TypeImpression")
End Sub
------------------------------------------------------------------------------