Sub Essai()
Dim lg&
With Feuil2
lg = .Range("A" & Rows.Count).End(xlUp).Row
With .Range("$A$1:$J$" & lg)
.AutoFilter Field:=3, Criteria1:=Feuil1.Range("K18").Text
.AutoFilter Field:=8, Criteria1:=">=" & Feuil1.Range("K15").Text - 10, Operator:=xlAnd, Criteria2:="<=" & Feuil1.Range("K15").Text
End With
lg = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:A" & lg).SpecialCells(xlCellTypeVisible).Copy
Sheets("interface").Range("O14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("$A$1:$J$500").AutoFilter Field:=8
.Range("$A$1:$J$500").AutoFilter Field:=3
End With
End Sub