TextBox %

Bonsoir à tous
J'ai 2 UserForm 1 et 2

Le UserForm1 pour entrer des donnes dans une base avec 1 TextBox pour entrer des Chiffres avec %
Voici le controle du TexBox qui controle le chiffre:

Private Sub PCent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.PCent = Replace(UserForm1.PCent, ".", ",")
UserForm1.PCent = Format(UserForm1.PCent / 100, "0.00%")
End Sub

La colonne de reception des % et au format % 2 chiffes apres la virgule (si je rentre 5 à l'arrivée 5.00%)
Pour modier mes données j'ai l'Userform2 qui controle de la meme façon le chiffres des % dans le TextBox
Private Sub PCent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.PCent = Replace(UserForm1.PCent, ".", ",")
UserForm2.PCent = Format(UserForm1.PCent / 100, "0.00%")
End Sub

Pour faie une modif je recupere la ligne avec : ComboBox PCent.Value= .Cells(lgn,12)*100
(Si je ne divise pas le chiffre par 100 j'obtiens 500)
Ce que je voudrais c'est obtenir le % avec le chiffre: 5%, pour le moment je n'ai que le 5

Je vous remercie pour le coup de main