Sub filtre()
'
' filtre Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+Z
'
Application.CutCopyMode = False
Sheets("TRI avec code client").Range("A1:K5897").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("Macro!Criteria"), CopyToRange:=Range( _
"Macro!Extract"), Unique:=False
[F4].FormulaLocal = "= NBVAL(C14:C5926) "
[F5].FormulaArray = "[= SOMME(SI(C13:C5906<>"";1/NB.SI(C13:C5906;C13:C5906)))] "
End Sub