Erreur dans cellule suite textbox en numérique

Bonsoir, j'ai une fois de plus besoin d'aide !

Voici mon soucis , j'ai un formulaire dans lequel il y a 2 textbox, les valeurs des textbox sont renvoyées dans l'onglet 4 , mais les valeurs renvoyées sont en erreurs avec un triangle rouge, et cela que sur la valeur de la textbox 1 , (nombre).

Comment puis faire pour ne plus les avoir en erreur.

Merci de votre aide .

Bonsoir,

Teste : Sheets("4").Cells(i, 2) = UserForm1.TextBox1.Value * 1 'Nom pour transformer le texte en nombre.

Cordialement

Edit :

ou

Sheets("4").Cells(i, 1) = Me.Label1 'Date
Sheets("4").Cells(i, 2) = CDbl(Me.TextBox1) 'poids
Sheets("4").Cells(i, 3) = Me.TextBox2.Value 'Nom