Remplacer 0,1 par .1

Bonjour le Forum,

Je pose une question archi simple sûrement mais je sèche là

Le titre parle de lui même...

J'ai importé des données d'un fichier source où certaines cellules sont remplies avec ".1"

Mon problème est qu'en important ces données elles se mettent sous la forme "0,1" dans le fichier destination.

J'ai voulu faire un code tout simple pour rechercher et remplacer les "0,1" par ".1" mais rien ne se passe... (je suis obligé de faire un code VBA)

J'ai même utilisé l'enregistreur de macro mais rien ne se passe non plus, les données restent toujours sous la forme "0,1"...

Auriez-vous une idée?

Merci d'avance!

Voici mon code :

Sub Remplace()

    Dim dl As Long, i As Long

    Application.ScreenUpdating = False

    dl = Sheets("Séquenceur").Range("A" & Rows.Count).End(xlUp).Row

    'On remplace le 0,1 par .1
    For i = 11 To dl
        If Cells(i, 1).Value = "0,1" Then
            Cells(i, 1) = ".1"
            'Range("A" & i).Value = Replace(Range("A" & i), ",", ".")
        End If
    Next

End Sub

Finalement j'ai trouvé une alternative en mettant la colonne au format texte avant d'importer

A bientôt!

BZH83