Bonjour
Un miracle avec ce code..... enregistré a adapter à ton problème
Sub Macro1()
'
' Macro1 Macro
'
'
'remplacement du point
Range("A2:A7").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
' multiplication par 1
Range("D2").FormulaR1C1 = "1"
Range("D2").Copy
Range("A2:A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
End Sub
Cordialement
FINDRH