Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Feuil2.Range("A1"), Unique:=True
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Feuil1.Range("P1"), Unique:=True
Sub sd()
Set mondico = CreateObject("Scripting.Dictionary").
For Each c In Selection
If c <> "" Then mondico(c.Value) = ""
Next c
[P1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub
L'idée avec filtre élaboré est bonne mais le premier chiffre est pris comme nom de colonne .