Vider le presse papier en vba

Bonjour

SUis un peu perdu, j'ai une macro qui exécute des filtres et des copier coller sauf que cela bloque en cours d'éxécution car pb de ressources

Y aurait t-il une solution en VBA ????

J'ai fait plein de recherche mais rien trouver, ci dessous ma macro utilisé (plusieurs fois la même dans le même fichier )

Sheets("ACH").Select
ActiveSheet.Range("$A$1:$AL$51276").AutoFilter Field:=1, Criteria1:="211"
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("211").Select
Cells.Select
ActiveSheet.Paste