Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim lt As Byte 'déclare la variable lt (Longueur Totale)
Dim l1 As Byte 'déclare la variable l1 (Longueur 1: du début à la première parenthèse)
Dim l2 As Byte 'déclare la variable l2 (Longueur 2: de la seconde parenthèse à la fin)
For Each cel In Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne A
lt = Len(cel.Value) 'définit la variable lt
l1 = Len(Split(cel.Value, "(", -1, vbTextCompare)(0)) 'définit la variable l1
l2 = Len(Split(cel.Value, ")", -1, vbTextCompare)(1)) 'définit la variable l2
cel.Offset(0, 2).Value = Mid(cel.Value, l1 + 1, (lt - l1 - l2) + 1) 'ecrit dans la colonne C la partie "fixe"
Next cel 'prochaine cellule de la boucle
End Sub