Suite à mon post, je me demande si une adaptation du code ci-dessous n'est pas nécessaire pour ne se focaliser que sur les cellules :
With ThisWorkbook.Sheets("Feuil1")
.Range("A1").CurrentRegion.AutoFilter Field:=11, Criteria1:="Pret"
.Range("B:B,I:J,Z:AA").SpecialCells(xlCellTypeVisible).Copy
Workbooks("Test.xlsm").Sheets("Feuil2").Range("A1").PasteSpecial Paste:=xlPasteValues 'Test.xlsm doit être ouvert
Application.CutCopyMode = False
End With
Peut-être avec une déclaration de variable comme
.Range("A" & .Rows.Count).End(xlUp).Row
mais je n'arrive pas à appliquer le filtre sans message d'erreur ?