Sub Macro1()
Dim cel As Range
For Each cel In Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle sur toutes les cellules éditiées cel de la colonne A
cel.Offset(0, 1).Value = Left(Right(cel.Value, 6), 5) 'récupère le code postal
cel.Value = Split(cel.Value, " (", -1)(0) 'isole le nom
Next cel 'prochaine cellule de la boucle
End Sub