Function SansParenthèse(ByVal x) As String
Dim nouvr&, nferm&, n&, i&, c$
nouvr = InStr(x, "("): nferm = InStr(x, ")")
If nouvr + nferm = 0 Then
SansParenthèse = x
Exit Function
End If
n = 1
For i = nouvr + 1 To Len(x)
c = Mid(x, i, 1)
Select Case c
Case "("
n = n + 1
Case ")"
n = n - 1
If n = 0 Then
Mid(x, nouvr, i - nouvr + 1) = String(i - nouvr + 1, Chr(0))
SansParenthèse = SansParenthèse(Replace(x, Chr(0), ""))
Exit Function
End If
Case Else
End Select
Next i
If n <> 0 Then SansParenthèse = CVErr(xlErrValue)
End Function