Bonjour,

j'ai ce petit soucis en comparant la colonne A à la colonne D, j'ai l'erreur indiquée dans le titre...

L'erreur est à la ligne 

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

Que faire s'il vous plait ?

Merci

Sub CommunsCellEntreAetD()
    ' articles en commun dans les 2 listes
    ' affichage des communs dans la colonne D
    Dim Premier
    Dim Second
    [I1].Value = "Communs " '
    '& nbval("d2:d6000")
    
    [a:e].ClearComments
    [a:e].Interior.ColorIndex = xlNone
    Premier = Range("a2:a" & [a65000].End(xlUp).Row)
    Set mondico1 = CreateObject("Scripting.Dictionary")
    For Each C In Premier
        If Not mondico1.exists(C) Then mondico1.Add C, C
    Next C
    Second = Range("d2:d" & [d65000].End(xlUp).Row)
    Set mondico2 = CreateObject("Scripting.Dictionary")
    For Each C In Second
        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)
    'Call DoublonsSimple ' mise en couleur sur base du même code
End Sub