Bonjour Patrick,

J'ai oublié de te souhaiter la bienvenue dans ce forum, voilà qui est fait.

J'ai monté un classeur avec des chaînes de quatre caractères aléatoires sur 30 000 lignes en colonnes A et D.

J'ai fait rouler ton code à plusieurs reprise et l'erreur s'est produite.

Comme un recalcul de la feuille se produit à chaque passe il  arrive que mondico2 soit vide, aucune correspondance entre les colonnes A et D. L'intersection des valeurs portées par ces colonne est vide : mondico2.count = 0

La boucle

    For Each C In Second
      If mondico1.exists(C) Then If Not mondico2.exists(C) Then mondico2.Add C, C
    Next C

ne charge aucune valeur dans mondico2.

L'incompatibilité de type provient de

 [g2].Resize(mondico2.Count, 1) devient [g2].Resize(0, 1)

et

 Application.Transpose(mondico2.items) devient Application.Transpose(Nothing, Rien, Néant)

Avec le classeur sur lequel tu travailles, se pourrait-il que la vacuité du dico2 soit à l'origine de l'erreur?

Cordialement,

Guy