Salut Roby
tu écris:
USFSaisie.TextBox3 = Format(USFSaisie.TextBox3, '# ##0.00 €')
If USFSaisie.OptionButton1 = True Then
etc.
la fonction 'format' renvoie du string (voir aide MS)et est inutile puisque ta cellule est formatée en monétaire
Il faut donc que tu transforme dans cette ligne et les autres:
ActiveCell.Offset(0, 6).Value = USFSaisie.TextBox3.Value
USFSaisie.TextBox3.Value en double ou en simple suivant ton appli; regarde les fonctions de conversion dans l'aide
A part, ta feuille est très esthétique, félicitations.
En espérant que
Michel_M