Sub b() [COLOR=Green]'invisible[/COLOR]
Dim invisi As Range, ble As Range
[A1].AutoFilter Field:=1, Criteria1:="<>10", Operator:=xlAnd
Set ble = [_FilterDatabase]
Set invisi = ble.Offset(1, 0).Resize(ble.Rows.Count - 1).SpecialCells(12)
invisi.Copy Sheets("NON VISIBLE").[A1]
Feuil1.AutoFilterMode = False
End Sub