Sub b()
With Intersect([B:B], ActiveSheet.UsedRange.EntireRow) 'merci job75 ;-)
'Données/Comvertir
.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Other:=True, OtherChar:="(", FieldInfo:=Array(Array(1, 1), Array(2, 9))
'Edition/Remplacer
.Replace What:="E? ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
'Couper/Coller le résultat en feuille2
.Cut Feuil2.[A1]
End With
End Sub