Bonsoir,
Essaie ainsi
Sub Filtrer()
Dim d As Object, aa, crit, i&, n&
Set d = CreateObject("Scripting.Dictionary")
With Worksheets("Feuil1")
If .FilterMode Then .ShowAllData
n = .Range("A" & .Rows.Count).End(xlUp).Row
aa = .Range("A1:A" & n).Value
For i = 2 To UBound(aa)
If aa(i, 1) <> "" Then d(UCase(aa(i, 1))) = ""
Next i
d.Remove ("ID")
crit = d.keys
With .Range("A1:B" & n)
.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
.AutoFilter 1, crit, xlFilterValues
End With
End With
End Sub
Cordialement.