Sub Parti_Liste()
With Sheets("feuil2") 'à adapter'
parti = .Range("b1:b" & .[b65000].End(xlUp).Row)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In parti
MonDico1(c) = ""
Next c
Liste = .Range("a1:a" & .[a65000].End(xlUp).Row)
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In Liste
If Not MonDico1.exists(c) Then MonDico2(c) = ""
Next c
.[d1].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys) 'cellule à adapter'
End With
End Sub
cool cela fonctionneLes données doivent être saisies dans les deux tableaux en colonnes B et D ensuite Il faut actualiser la requête Onglet Données, Requêtes et connexions, Actualiser tout.