Sub Macro1()
Dim données_Svehic As Workbook, plgf As Range, ACOPIER As Range
Set données_Svehic = Workbooks.Open("C:\temp\test.xls")
With données_Svehic.Sheets(1)
.Range("AF2").FormulaR1C1 = "=(RC[-1]-TODAY())>=10"
.Range("A1:AE21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
.Range("AF1:AF2"), Unique:=False
Set plgf = .Range("_FilterDataBase")
Set ACOPIER = plgf.Offset(1, 0).Resize(plgf.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
End With
ACOPIER.Copy ThisWorkbook.Sheets(1).Range("A65536").End(xlUp)(2)
données_Svehic.Close False
End Sub