Perte du séparateur décimale

Bonjour à tous.
J'ai un petit problème qui me laisse complètement dubitative...
Je travail sur un fichier excel avec des macros. Etant débutante tout n'est pas toujours optimisé mais lorsque ça fonctionne ça me convient.

Le principe: je rentre des valeurs dans ma Feuil1.
Elles sont automatiquement écrites dans ma Feuil3 avec (=Feuil1...) ce qui permet de les mettre en forme.
J'ai ensuite une macro qui récupère mes valeurs de la Feuil3 pour les écrire dans la Feuil4. (ce cheminement est nécessaire car la Feuil4 va servir de base de données à conserver et toutes les autres feuilles se réinitialisent à chaque ouverture)

Bref mon soucis c'est que lorsque j'écris par exemple 2.005 dans Feuil1, cela va écrire 2005 dans Feuil4. Donc ça m'enlève la virgule, et ma valeur n'a plus de sens.
Ce qui est étrange c'est que si j'écris 2.5 dans Feuil1, là ça ne changera pas...
Je précise que le point ou la virgule n'y change rien...

Voici mon code de macro présente sur la Feuil1. Pour que la feuil4 s'écrive en même temps qu'on rentre des données sur la Feuil1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G6:AG23")) Is Nothing Then
        With [TValeurs]
            Worksheets("Feuil4").Range("A2").Resize(.Rows.Count, .Columns.Count).Value = .Value
        End With
    End If
End Sub

TValeurs correspond au tableau de ma Feuil3, dans lequel je n'observe pas de soucis de décimale d'ailleurs.

Si quelqu'un a un idée d'ou peut venir mon problème je lui serais vraiment très reconnaissante car sans ça, tout mon travail ne sert à rien...

Merci !