Sub inversefiltreVille()
Set Rng = Range("c6")
tmp = FiltreActuel("bd", Rng)
Set d = CreateObject("scripting.dictionary")
Set Rng2 = Rng.Offset(1).Resize(1000)
For Each c In Rng2: d(c.Value) = "": Next
Dim b()
n = 0
For Each c In d.keys
If InStr(tmp, c) = 0 Then n = n + 1: ReDim Preserve b(1 To n): b(n) = c
Next c
ActiveSheet.Range("$A$6:$G$1000").AutoFilter Field:=3, Criteria1:=b, Operator:=xlFilterValues
Calculate
End Sub