Sub TRI()
Application.ScreenUpdating = False
With Sheets("Resultats").Range("A1").CurrentRegion
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("critere"), Unique:=False
.Copy Sheets("Depenses").Range("A1")
End With
'Sheets("Resultats").Activate
'ActiveSheet.ShowAllData
Sheets("Resultats").ShowAllData
End Sub