Sub carrousel()
With Range("E2:E" & [E65000].End(xlUp).Row)
.Replace "(**)", ""
.TextToColumns Destination:=Range("E2"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(4, 1), Array(6, 1), Array(8, 1), Array _
(10, 1), Array(12, 1), Array(14, 1), Array(16, 1), Array(18, 1)), TrailingMinusNumbers:=True
End With
End Sub