Bonjour
C'est simple
On construit une liste sans doublon des données de la colonne A, que l'on place dans l'objet "Dictionary"
' Faire une liste sans doublon avec l'object "Dictionary"
Set Mondico = CreateObject("Scripting.dictionary")
For J = 2 To Range("A" & Rows.Count).End(xlUp).Row
Mondico(Range("A" & J).Value) = ""
Next J
Avec cette liste sans doublon on filtre
' Filtre
Range("A1").CurrentRegion.AutoFilter field:=2, Criteria1:=Mondico.keys, Operator:=xlFilterValues
Extrêmement simple
On peut virer la variable NbLg : Pas utilisée