Sub Convertir()
For Each xCell In Selection
xCellule = xCell
xLig = xCell.Row
xTourne = (Len(xCellule) - Len(Replace(xCellule, ",", ""))) / 1
xPos = 1
For F = 1 To xTourne
xVirg = InStr(xPos, xCellule, ",")
xEspa = xVirg + 3
xTexte = Trim(Mid(xCellule, xPos, xEspa - xPos))
xNombr = Val(Replace(xTexte, ",", "."))
xPos = xEspa
Cells(xLig, F + 2) = xNombr
Next F
Next xCell
End Sub