transformation du texte en nombre

[POLO974]

Bonjour,
sur le fichier joint j'aimerais récupérer les valeurs 'textes' en nombres.
Merci pour votre aide.
POLO

 

[POLO974]

merci ça marche !...
j'avais quand retrouvé une macro qui le faisait aussi je prendrai ta solution.
La macro :
Sub Bouton1_QuandClic()
Dim c As Range

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
c.Offset(0, 1) = Evaluate(c.Text)
Next c
End Sub

Bonne soirée et encore MERCI !!!