Sub Remplace()
Dim i As Long, p As Long, temp As String, Mavar As String, Cel As Range, Plg As Range
Set Plg = Range("A1:A15")
For Each Cel In Plg
temp = Cel.Value
For i = 1 To Len(temp)
p = InStr(",", Mid(temp, i, 1))
If p Then Mid(temp, i, 1) = Mid("-", p, 1)
Next
Mavar = temp
Next
End Sub