Bonjour à tous,

je me casse la tete depuis un bon, moment sur un simple copier coller. je vous joins le code. Il me sort une erreur 1004, pb avec autofilter.
Ce que je veux faire: filtrer une base, copier le filtrage vers un autre classeur et mettre cette copie à la suite

Merci pour l'aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub FiltreCopie()
'
' FiltreCopie Macro
'
 
For i = 18 To 25 Step 1
    Sheets("BDD_BDC").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Y$2590").AutoFilter Field:=i, Criteria1:="<>"
    ActiveSheet.Range("A247:A2502,J247:Y2502").Copy
    Sheets("presse papier").Select
    Range("A" & Sheets("presse papier").Cells(Rows.Count, 1).End(xlUp).Row).Select
    ActiveSheet.Paste
Next i
 
End Sub