Self answering :

All sheet's events ( except Deactivate) as
Application.Calculation = xlCalculationAutomatic
.........
.........
Application.Calculation = xlCalculationmanual
End sub

Now I can filter even 60.000 rows within milliseconds and my CF works
charmly.