mon problème c'est que dans le fichier joint, les cours du dollars sont convertis de 1.3440044 en 13440044, le point disparait sans laisser la place à la virgule comme dans les autres cellules, je ne vois pas à quoi cela est dû mais surtout comment le contourner.
A noter que je n'ai aucun problème pour remplacer les points par des virgules en passant par le menu Edition-->Remplacer.
Il y a ceci qui fonctionne pour des données en A1:A100
Code:
Option Explicit
Sub essai()
Dim Cellule As Object
Dim Chaine As String
Dim Valeur As Single
For Each Cellule In Range("A1:A100")
If InStr(1, Cellule.Value, ".") <> 0 Then
Chaine = Replace(Cellule.Value, ".", ",")
Valeur = CDbl(Chaine)
Cellule.Value = Valeur
Cellule.NumberFormat = "0.00000"
End If
Next Cellule
End Sub