En effet, si on ne s'attaque qu'au transfert entre l'usf et le tableau comme le suggère Xmenpl que je re-salue, je propose
Range("B2") = Replace(Replace(TextBox2.Value, " ", ""), ".", ",") * 1
A condition qu'il n'y ait que des chiffres.
Cas du second textbox ci-dessous