Sommeprod en vba

Bonjour,

Je suis nouvelle sur le forum et plutôt novice en vba. Je souhaite indiquer en cellule G9 le nombre de cellules contenant "Aucune" et ce pour la personne sélectionnée en B1. Pour cela, je pensais passer par une fonction sommeprod en vba. Voici le code que j'ai réalisé et qui... ne fonctionne pas (affiche 0 au lieu de 1):

Sub Macro3()
'
'Définit la plage contenant le nom des personnes
Set Plage1 = Workbooks("CAPITAL_NON_AMORTI01APR12.XLS").Sheets( "EXI_PAS_AMO").Range("$I$1:$I$1000")

'Définit la plage avec les cellules pouvant contenir "Aucune"
Set Plage2 = Workbooks("CAPITAL_NON_AMORTI01APR12.XLS").Sheets( "EXI_PAS_AMO").Range("$J$1:$J$1000")

'Définit la cellule contenant le nom de la personne sélectionnée
NOM = Workbooks("2012_REPORT_CTRL_COLL_NEGO.xls").Sheets ("SYNTHESE").Range("B1")

Windows("2012_REPORT_CTRL_COLL_NEGO.xls").Activate

'C'est là que réside tout le problème hélas
Sheets("SYNTHESE").Range("G9").Value = Evaluate("=sumproduct((Plage1=""" & NOM & """)*(Plage2=" & """Aucune""" & "))")

End Sub

Voilà! J'ai longtemps cherché la réponse dans les différents forums et testé un certain nombre de syntaxes...j'avoue que je désespère! Si une bonne âme veut bien se pencher sur mon problème ce serait super!

Merci beaucoup à tous!