Bonjour Ergotamine, Galopin01
Ergotamine : j'avais adapter votre première macro à mon fichier car en réalité la liste se reporte sur une autre feuille
ce qui me donne :
Sub DOUBLONS()
Dim Dico As Object, REF As Range
With Worksheets("Feuil1")
Set Dico = CreateObject("Scripting.Dictionary")
For Each REF In .[D2:F7]
If REF <> "" Then Dico(REF.Value) = ""
Next REF
Worksheets("Feuil2").[A3].CurrentRegion.ClearContents
Worksheets("Feuil2").[A3].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
Worksheets("Feuil2").[A3].CurrentRegion.Sort Worksheets("Feuil2").[A2], xlAscending
End With
End Sub
J'ai eu la prétention de pouvoir faire la même avec l'update mais c'est une toute autre histoire...
Galopin01 : j'ai testé la votre et le résultat était "presque" concluant.
je dis presque car dans l'absolu, ma liste se trouve uniquement en feuille 2 (votre Tref se réfère à un tableau en feuille 1 qui en réalité n'y est pas)
Du coup (et je conçoit que j'aurait dû directement mettre la bonne version) je vous joint le fichier tel qu'il devrait être (J'ai laissé les 2 macros d'Ergotamine sachant que la 2ème du coup, dans l'état, ne fonctionne pas)
Merci d'avance pour le travail supplémentaire.
Cdlt,