Bonjour,
Je fais un filtre, je veux coller les lignes visibles du filtre (hors entête).
Ca fonctionne lorsque je les colle une première fois, puis j'ai erreur 400.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    Sheets("V").Range("A1").AutoFilter Field:=1, Criteria1:="G"
    Sheets("V").Range("A2:P1048576").SpecialCells(xlVisible).Copy Destination:=Sheets("G").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
'suppression
    Sheets("V").Select
    Sheets("V").Range("$A2:$Z1048576").SpecialCells(xlCellTypeVisible).Delete
    Sheets("V").Cells.AutoFilter
Comment régler ce problème ? Merci