I would like to share the best answer i'v got to my question is:
Sub test()
Columns(1).Copy Columns("b:c")
Columns(1).Replace "(*)", "", 2
Columns(1).Replace "", "", 2
Columns(2).Replace "*(", "", 2
Columns(2).Replace ")*", "", 2
Columns(3).Replace "*[", "", 2
Columns(3).Replace "]*", "", 2
End Sub