Sub Stock()
Dim DerLg As Integer
Dim DerL As Integer
Application.ScreenUpdating = False
DerLg = Sheets("Livraison").Range("A" & Rows.Count).End(xlUp).Row
DerL = Sheets("Liste").Range("E" & Rows.Count).End(xlUp).Row
Sheets("Stock").Cells.Clear
Sheets("Liste").Range("A1:E" & DerL).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Livraison").Range("A1:A" & DerLg), _
CopyToRange:=Sheets("Stock").Range("A1"), Unique:=False
Application.ScreenUpdating = True
End Sub