VBA - Conversion d'un texte en nombre

If UserForm3!TextBox1.Value = "" Then
  ActiveCell.Value .Value = ""
Else
  ActiveCell.Value = CDbl(UserForm3!TextBox1.Value)
End If

my_string = "9874"
val(my_string)=9874

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Private Sub Workshee1_Calculate()
If Target.Column <> 7 Or Target.Row < 6 Or Target.Cells.Count > 1 Then
'si la colonne <>7 (C) ou la ligne <6 ou la sélection fait plus d'1 cellule

Private Const Bois As Integer = 4
Private Const Couleur As Integer = 3
Private Const Cintrage As Integer = 6
Private Const bicolore As Integer = 4
Private Const Blanc As Integer = 2

Else
On Error GoTo End
End If
End Sub

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"