Si/et/ou fonction VBA Excel

Bonjour à tous,

J'ai cette formule Excel ci dessous que je veux mettre en vba. Malheureusement je ne parviens pas à avoir le résultat attendu quand je le fais

Pouvez svp me donner un coup de pouce ?

Merci d'avance

Voici la formule excel

=SI(ET(B4="TradeFlow";OU(A4="OTR";A4="GCM";A4="MEU"));"MO_Derivatives_Europe";SI(ET(B4="TradeFlow";A4="MNY");"MO_Cash_Europe";SI(ET(B4="NonStandardFxOption";AB4="9400");"MO_Cash_Europe";SI(ET(B4="CashLoanDeposit";AB4="70979");"MO_Structured_Controls_Europe";SI(ET(B4="IRS";AB4="181";Z4="SC0000074423");"MO_Cash_Europe";SI(ET(OU(B4="IRS";B4="FRA";B4="CapFloor");Z4="SC0000012524");"MO_Cash_Europe";SI(ESTNA(RECHERCHEV(B4;'MO REC Teams'!$A$1:$B$34;2;FAUX));"Default";RECHERCHEV(B4;'MO REC Teams'!$A$1:$B$34;2;FAUX))))))))

Hello,

Potentiellement ça peut être une première piste :

Sub test()

If Range("B4") = "Tradeflow" And (Range("A4") = "OTR" Or Range("A4") = "GCM" Or Range("A4") = "MEU") Then
        Range("C1") = "MO_Derivatives_Europe"

    ElseIf Range("B4") = "Tradeflow" And Range("A4") = "MNY" Then
        Range("C1") = "MO_Cash_Europe"

    ElseIf Range("B4") = "NonStandardFxOption" And Range("AB4") = "9400" Then
        Range("C1") = "MO_Cash_Europe"

    ElseIf Range("B4") = "CashLoanDeposit" And Range("AB4") = "70979" Then
        Range("C1") = "MO_Structured_Controls_Europe"

    ElseIf Range("B4") = "IRS" And Range("AB4") = "181" And Range("Z4") = "SC0000074423" Then
        Range("C1") = "MO_Cash_Europe"

    ElseIf (Range("B4") = "IRS" Or Range("B4") = "FRA" Or Range("B4") = "CapFloor") And Range("Z4") = "SC0000012524" Then
        Range("C1") = "MO_Cash_Europe"

    ElseIf Application.WorksheetFunction.VLookup(Range("B4"), Sheets("MO REC Teams").Range("A1:B34"), 2, 0) = "#N/A" Then
        Range("C1") = "Default"

    Else
        Range("C1") = Application.WorksheetFunction.VLookup(Range("B4"), Sheets("MO REC Teams").Range("A1:B34"), 2, 0)

End If

End Sub

@+