Sub Filter()
With Worksheets("Nouvelle_gamme")
.Activate
.Cells.Clear
Set lr = Worksheets("Liste_recherche").Range("B" & Rows.Count).End(xlUp)
Worksheets("BD").[$a:$ad].AdvancedFilter _
CriteriaRange:=Worksheets("Liste_recherche").Range("$b1:" & lr.Address), _
Action:=xlFilterCopy, _
CopyToRange:=.[$a1]
Set lr = Range("C" & Rows.Count).End(xlUp)
With .Sort
.SortFields.Add2 Key:=Range("C2:" & lr.Address), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("A:AD")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub