Dejà le 0,25 est un Double....
Mais bon..
Dim MyStr As String
Dim TmpStr As String
Dim Lenght As Integer
Dim Out As Double
Range("A1" ).Select
MyStr = Range("A1" ).Value ' Recup de la valeur
Lenght = Len(MyStr) ' Compte la longueur
For i = 1 To Lenght
If (Mid(MyStr, i, 1) <> Chr(34)) Then ' Si j'ai un " je passe
' Sinon je fabrique ma nouvelle chaine juste avec ce que je veux
TmpStr = TmpStr & Mid(MyStr, i, 1)
' Et je convertis le tout en double !
Out = CDbl(TmpStr)
End If
Next i
Avec ça ça devait aller...
@+