erreur " incompatibilité de type" Xl 2003 et 2007

Bonjour,

dans ce code que j'avais eu sur ce forum, je ne sais pas pourquoi il se plante à la ligne

[g2].Resize(mondico2.Count, 1) = Application.Transpose(mondico2.items)

avec le message " incompatibilité de type"

Merci de votre aide

Sub CommunsEntreAetD()
' articles en commun dans les 2 listes en colonne A et D
'déclarer dans Outils/référence "microsoft scripting runtime"
'
[g1].Value = "Communs " '
[A:E].ClearComments
[A:E].Interior.ColorIndex = xlNone
a = Range("a2:a" & [a65000].End(xlUp).Row)
Set MonDico1 = CreateObject("Scripting.Dictionary")

For Each C In a
If Not MonDico1.exists(C) Then MonDico1.Add C, C
Next C

B = Range("d2:d" & [d65000].End(xlUp).Row)

Set mondico2 = CreateObject("Scripting.Dictionary")
For Each C In B
If MonDico1.exists(C) Then If Not mondico2.exists(C) Then mondico2.Add C, C
Next C

[g2].Resize(mondico2.Count, 1) = Application.Transpose(mondico2.items)
End Sub