Pb d'écriture de chaine dans des cellules à cause de 4 décimales

Bonjour,

Dans Excel, Je lis un fichier txt tabulé et je mets les valeur dans chaque colonne.

Mon problème est que certaine valeur sont mal affichée dans excel.
Exemple, j'ai dans mon txt :
poisson tab tab tab 20,0000 tab 5,53 tab

Une fois, dans excel la 4ème cellule contient : "200 000" : les 4 zéros le pertube.
Auriez-vous une idée pour solutionner cela ?

        
Dim Ar As String
Dim Chaine As String
Do While Not EOF(NumFichier)

            iCol = 1
            Line Input #NumFichier, Chaine
            Ar = Split(Chaine, Separateur)
            For i = LBound(Ar) To UBound(Ar)
                Cells(iRow, iCol) = "@"   'Texte
                Cells(iRow, iCol).Value = CStr(Ar(i))
                
                iCol = iCol + 1
            Next
            iRow = iRow + 1
        Loop

Merci
Thibault