Si besoin, un essai en macro (non testé) :
Sub IsolerInfos()
Dim Lig As Long, LigMax As Long
With Sheets("NomFeuille") 'A adapter
LigMax = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 To LigMax
.Range("C" & Lig) = Split(.Range("A" & Lig), " (")(0)
.Range("D" & Lig) = Replace(Split(.Range("A" & Lig), " <")(1),">","")
Next Lig
End With
End Sub