Modification de valeur lors d'un remplacement de "." en ","

Bonjour à tous,

je désire rassembler des résultats qui sont dans plusieurs fichiers dans un seul, puis modifier le séparateur "." en ",". Pour cela j'ai fait une macro qui réaliser un copier coller, puis un replace "." en ",".
(je sais que je peux changer dans mes options le séparateur de décimal, mais je ne veux pas modifier l'option)
Mon problème est le suivant: lors de la tache remplacement les valeurs passent de 5.87 e-11 à 5,87 e-6. je modifie donc mes valeurs d'un facteur 10^5.
Par contre quand je réalise cette tâche à la main pas de problème...
Quelqu'un a t-il déjà été confronté à ce problème?
pour info j'utilise excel 2003.

voilà mon code :

For i = 0 To 4
    Windows("bu0" & i & ".csv").Activate
    Range("A1:B76").Select
    Selection.Copy
    Windows("global.xls").Activate
    Sheets("deconBU").Select
    Range("D3").Offset(0, 2 * i).Select
    ActiveSheet.Paste
    Range("D3:D78").Offset(0, 2 * i).Select
    Application.CutCopyMode = False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "General"
Next