TextBox3 = InputBox("Saisir le montant") TextBox3.Text = Format(TextBox3.Value, " # ##0,00 €") With ActiveCell .NumberFormat = " # ##0,00 €" 'format de la cellule de destination .Value = Val(TextBox3.text) 'on converti la valeur de la textbox en valeur End With