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 cellule où "Aucune" est indiqué et ce, pour la personne sélectionnée en B1. Pour cela, je pensais passer par une sommeprod en vba. Voici le code que j'ai fait pour le moment:

Sub Macro3()
'
'Définit la Plage avec le Nom des collaborateurs
Set Plage1 = Workbooks("CAPITAL_NON_AMORTI01APR12.XLS").Sheets("EXI_PAS_AMO").Range("$I$1:$I$1000")

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

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

Windows("2012_REPORT_CTRL_COLL_NEGO.xls").Activate

Sheets("SYNTHESE").Range("G9").Value = Evaluate("=sumproduct((Plage1=""" & NOM & """)*(Plage2=" & """Aucune""" & "))")

End Sub

J'ai cherché longtemps en m'inspirant des réponses sur les différents forums mais sans succès. Pouvez-vous m'aider svp?

Merci beaucoup