Salut Hosni,
voici une façon de faire en cliquant sur le mot à traiter!
A toi d'adapter en fonction des circonstances.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim tSplit
'
If Target.Value <> "" Then
sFlag = Target.Value
tSplit = Split(sFlag, "(")
sFlag = tSplit(0)
Target.Value = sFlag
End If
'
End Sub
A+