Problème avec Evaluate("=index ..... ")

Range(Cells(2, Col_Bloc), Cells(iRowL, Col_Bloc)).Address

Range(Cells(2, Col_Bloc), Cells(iRowL, Col_Bloc))

Set Var = Evaluate("=index(Range(Cells(2, Col_Bloc), Cells(iRowL, Col_Bloc)).Adress,match(1,(Range(Cells(2, Col_x), Cells(iRowL, Col_x)).Adress=5)*(Range(Cells(2, Col_y), Cells(iRowL, Col_y )).Adress=19),0))")

Dim plg as Range
Dim plg2 As Range
set plg=Range(Cells(2, Col_Bloc), Cells(iRowL,  Col_Bloc))
set plg2=Range(Cells(2, Col_y), Cells(iRowL, Col_y  ))
Set Varr = Evaluate("=index(,match(1,(plg=5)*(plg2=19),0))")
'Varr car il me semble que Var est réséervé par VBA non ?

Sub test()
Dim plg1 As String
Dim plg2 As String
Dim plg3 As String
col_x = 1
col_y = 2
col_bloc = 3
IrowL = 5
plg1 = Range(Cells(2, col_bloc), Cells(IrowL, col_bloc)).Address
plg2 = Range(Cells(2, col_x), Cells(IrowL, col_x)).Address
plg3 = Range(Cells(2, col_y), Cells(IrowL, col_y)).Address
'====================================================
'      la fonction VBA EVALUATE attend une formulation sous la forme de fonction de feuille de calcul au format US...
'      [G1].Formula = "=index(" & plg1 & ",match(1,1*(" & plg2 & "=5)*(" & plg3 & "=19),0))"
'      [G1]=INDEX($C$2:$C$5;EQUIV(1;1*($A$2:$A$5=5)*($B$2:$B$5=19);0))
'      il faut valider cette formule par Ctrl+Maj+Entrée
'====================================================
mavar = Evaluate("=index(" & plg1 & ",match(1,1*(" & plg2 & "=5)*(" & plg3 & "=19),0))")
' la fonction EVALUATE ici en VBA est automatiquement sous forme Array(matricielle)
MsgBox mavar
End Sub