macro copier/coller tableau : amélioration du code

Bonjour à tous,

Encore une fois merci pour la richesse de ce forum.
Je vous explique mon cas avant de donner mon code :

Je veux, à partir d'un classeur "1", cliquer sur un bouton et :
- ouvrir un autre classeur "2"
- placer un filtre sur un tableau
- filtrer deux colonnes
- copier le tableau en entier (solution choisie : usedrange + copy)
- le coller dans la feuille "Dépose Extraction" dans le classeur "1"

Mon problème : erreur 1004 lié à la fameuse zone de forme et de taille identique.

Existe-t-il une méthode ou une solution pour passer à travers ce problème ?
J'ai cherché sur de nombreux forums sans trouver, sûrement faute d'utiliser les bons mots clés (débutant VBA).

Le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub extractionautotest()   'ouverture du fichiers' Application.Workbooks.Open "R:\..."   'mise en place des filtres' Range("A5").AutoFilter Field:=2, Criteria1:="VS" Range("A5").AutoFilter Field:=11, Criteria1:="ASW"   'copie du tableau filtré' ActiveSheet.UsedRange.Copy (Workbooks(1).Worksheets("Dépose Extraction"))   'copie qui coince' ActiveSheet.UsedRange.Copy Workbooks(1).Sheets("Dépose Extraction").Paste Destination:=Range("A1")   End Sub

---

Merci à l'avance pour vos conseils. N'hésitez pas à critiquer la logique de la procédure si un système plus efficace existe.

Cordialement,

Guillaume

Après quelques essais j'arrive à un code qui marche :

Code:

---

1 2 3 4 5

Cells.Copy Workbooks(1).Sheets("Dépose Extraction").Activate Sheets("Dépose Extraction").Range("A1").Select ActiveSheet.Paste

---

Mais normalement il faut éviter les .select dans le code. Malheureusement je n'arrive pas à faire autrement... Si quelqu'un veut m'aider je l'invite à me contacter directement en MP, je clos le sujet dans 5 min étant donné que j'ai quand même la solution à mon problème.