Bonjour,
2021 n'est pas considéré comme une valeur numérique si vous l'insérez en l'état. Il faut l'inclure en le transformant en valeur numérique (ici via le *1) mais auparavant tester si la valeur est numérique via IsNumeric :
Private Sub CommandButton1_Click()
If IsNumeric(TextBox1) Then
Worksheets("Couleur").Cells(6, 2).Value = TextBox1 * 1
Else
Worksheets("Couleur").Cells(6, 2).Value = TextBox1
End If
End Sub
Cdlt,