Fusion de listes sans doublon

Bonjour,

je vous sollicite car je cherche a faire la chose suivante. dans une premiere colonne j'ai une liste de produit (pas forcement dans un ordre quelconque) et dans une seconde colonne, une autre liste.

Je cherche a faire une troisieme liste qui serait la fusion, mais sans doublon, des deux premieres liste.

Excel de démo en cc.

Par avance merci

Bonsoir,

cf PJ

-sélectionner F2:F39

=fusion(A2:A14;C2:C23)

-Valider avec maj+ctrl+entrée

Dans un module

Function Fusion(champ1, champ2)
 Dim temp()
 Set mondico1 = CreateObject("Scripting.Dictionary")
 a = champ1
 For Each c In a
   If c <> "" Then
     If Not mondico1.Exists(c) Then mondico1(c) = ""
   End If
 Next c
 b = champ2
 For Each c In b
   If c <> "" Then
    If Not mondico1.Exists(c) Then mondico1(c) = ""
   End If
 Next c
 If mondico1.Count <= Application.Caller.Rows.Count Then
   ReDim temp(1 To Application.Caller.Rows.Count)
   i = 1
   For Each c In mondico1.keys
      temp(i) = c
      i = i + 1
   Next
   Fusion = Application.Transpose(temp)
 Else
   Fusion = "pas assez de lignes sélectionnées!"
 End If
End Function

Ceuzin

bonsoir et merci pour la réponse.

comment avez vous determiner qu'il fallait selectionner de F2 à F39?