Sub Supp_Carac()
Dim x As Double
Dim z As Double
Range('A1').Select
For i = 1 To Range('A65536').End(xlUp).Row
x = ActiveCell.Value
y = InStr(1, x, ',', 1)
y = y + 4
z = Left(x, y)
ActiveCell.Value = z
Selection.Offset(1, 0).Select
y = 0
Next i
End Sub