[Résolu] Transformer des décimales 'point' et décimale 'virgule' d'une seule colonne

Sub test()
With Worksheets("Feuil1")
    With .Range("F:F")
        .Replace ".", ","
        .NumberFormat = "# ##0.####"
        .Replace ",", "."
    End With
End With
End Sub

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 11/07/2012

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
End Sub

 Sub Virgule()

 ' Pramétrage Feuille + Tableau
 Dim T() As Variant
 Dim F1 As Worksheet
 Set F1 = ThisWorkbook.Worksheets("Feuil1")

' Tableau
Fin = F1.Range("F65536").End(xlUp).Row
T = F1.Range(Cells(2, 6), F1.Cells(Fin, 6))

' Redimenion du tableau soit deux colonne supplémentaire
' la deuxieme colonne est vide c'est justement pour la
' remplire aumoyen de cette fonctionque l'on va faire
' plus bas la fonction Remplace et entre parenthése
' ont place les arguments renvoyer a la fonction

 ReDim Preserve T(1 To Fin - 1, 1 To 2)
 
' Boucle
 For i = 1 To UBound(T, 1)
     Res = Remplace(i, T)
 Next i
 
 ' Restitution des valeur par substitution des
 ' valeur présente dans la colonne dans la colnne F
 ' Itituler C

      F1.Cells(2, 6).Resize(UBound(T, 1)) = Application.Index(T, , 2)
  
 ' efface tous le Tableau T()
 Erase T
 
 ' Selectionne la colonne F (Cellule F2)
 ' Pour le curseur
Cells(2, 6).Select
End Sub

Function Remplace(i, T)

' Fonction avec un tableau qui peux reservir
' le cas echéant pour d'autres colonne
' ou d'autres idées

' Longueur des caractéres dans la Chaine c'est a dire
' par defaut tous se qui est supérieur a 1 doit etre
' modifier = Astuce

 Longeur = Len(T(i, 1))

' Test
' Si la longeur est supérieur a 1 c'est
' qu'il faut changer le . par une virgule
' On rempli la colonne 2 vides du tableau
' en fonction de la condition

If Longeur > 1 Then
T(i, 2) = Replace(T(i, 1), ".", ",") ' ici on substitu le . par la Virgule donc Longeur Supérieur a 1
Else
T(i, 2) = T(i, 1) ' ici rien car inférieur a 1 (donc on rempli par la meme chose)
End If

Remplace = T ' ici ont revois le tableau car c'est une foncion qui attend un résultat

End Function