XL 2016 Garder uniquement le contenu situé entre les parenthèses

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Split(Split(x, "(")(UBound(Split(x, "("))), ")")(0)
   If x = "" Then Exit Function
   For i = 1 To Len(x): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Split(x, "(")(UBound(Split(x, "(")))
   If x = "" Then Exit Function
   For i = 1 To InStr(1, x, ")"): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
   If x = "" Then Exit Function
   For i = 1 To len(x): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

Function ChiffresEntrePar(ByVal x As String, Optional I As Long = 0) As String
 Static chain As String
   If Not x Like "*(*)*" Then Exit Function
   If I = 0 Then chain = "": x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
    I = I + 1: If Mid(x, I, 1) Like "#" Then chain = chain & Mid(x, I, 1)
    If I < Len(x) Then ChiffresEntrePar x, I
     ChiffresEntrePar = chain
End Function

Function ChiffresEntrePar(ByVal x As String, Optional I As Long = 0, Optional chain As String) As String
   If Not x Like "*(*)*" Then Exit Function
   If I = 0 Then chain = "": x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
    I = I + 1: If Mid(x, I, 1) Like "#" Then chain = chain & Mid(x, I, 1)
    If I < Len(x) Then ChiffresEntrePar x, I, chain
     ChiffresEntrePar = chain
End Function

Function ChiffresEntrePar(ByVal x As String, Optional I As Long = 0, Optional chain As String) As String
    If Not x Like "*(*)*" Then Exit Function
   If I = 0 Then chain = "": x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
   If I < Len(x) Then: chain = chain & IIf(Mid(x, I + 1, 1) Like "#", Mid(x, I + 1, 1), ""): ChiffresEntrePar x, I + 1, chain
     ChiffresEntrePar = chain
End Function