Sub FiltreElaboré(xOnglet)
On Error Resume Next
With ActiveSheet
xDerLig = Sheets("Resultats").Range("C65536").End(xlUp).Row
Sheets("Resultats").Range("A1:L" & xDerLig).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:A2"), _
CopyToRange:=.Range("A3"), Unique:=False
End With
End Sub