Microsoft 365 Isoler, convertir et calculer une chaîne de caractères entre parenthèses

Function EvaluationCode(Optional Variable As String, Optional Equation As String)
With CreateObject("MSScriptControl.ScriptControl")
    .Language = "VbScript"
    .ExecuteStatement Variable & vbCrLf & "V=" & Equation
    EvaluationCode = .Eval("v")
End With
End Function

Sub test()
'(1 OR 0) AND NOT (0 OR 1)
MsgBox EvaluationCode("Banane=1:fraise=0:pomme=0:Groseille=1", "(Banane OR fraise) AND NOT (pomme OR Groseille)")
MsgBox EvaluationCode(Equation:="(1 OR 0) AND NOT (0 OR 1)")
End Sub
Function EvaluationCode(Optional Variable As String, Optional Equation As String)
With CreateObject("ScriptControl")
    .Language = "VbScript"
    .ExecuteStatement Variable & vbCrLf & "V=" & Equation
    EvaluationCode = .Eval("v")
End With
End Function

Sub test()
MsgBox EvaluationCode("(1 OR 0) AND NOT (0 OR 1)")
End Sub

Function EvaluationCode(Equation As String) as integer
With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;"""
    With .Execute("SELECT " & Equation & " AS Resulta;")
        If Not .EOF Then EvaluationCode = Abs(.fields("Resulta"))
        .Close
    End With
    .Close
End With
End Function

Sub project_filtering()
Dim t#, F As Worksheet, P As Range, i As Variant, c As Range, tablo
t = Timer
Application.ScreenUpdating = False
Set F = Sheets("DIV")
Set P = [A3].CurrentRegion.Offset(1)
P.Name = "P" 'plage nommée
P.Columns(2).Copy P.Columns(3)
P.Columns(4) = ""
'---3ème colonne---
i = Application.Match([A1], F.Rows(5), 0)
If IsError(i) Then Exit Sub
P.Columns(3).Replace "~*", 1, xlPart
For Each c In F.Columns(2).SpecialCells(xlCellTypeConstants)
    If c.Row > 6 Then P.Columns(3).Replace c, IIf(c(1, i - 1) = "", 0, 1)
Next
'---4ème colonne---
tablo = P.Columns(3).Resize(, 2) 'matrice, plus rapide
With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;"""
    For i = 1 To UBound(tablo) - 1
        With .Execute("SELECT " & tablo(i, 1) & " AS Resulta;")
            If Not .EOF Then tablo(i, 2) = Abs(.Fields("Resulta"))
            .Close
        End With
    Next i
    .Close
End With
P.Columns(3).Resize(, 2) = tablo
Application.ScreenUpdating = True
MsgBox P.Rows.Count - 1 & " lignes traitées en " & Format(Timer - t, "0.00 \sec")
End Sub

tablo = P.Rows(3).Resize(2)

sql="PARAMETERS [Choux] integer=1, [Poire] integer=1, [Fraise] integer=0, [Poireau] integer=0;" & _
"   SELECT Abs(Choux And Poire And Not Fraise And Not Poireau) AS Resulta;"