'On prend la feuille.
Worksheets("BDD").Select
'On selectionne la première cellule contenant des données.
Range(Range("A3"), Range("A3").End(xlDown).End(xlToRight)).Select
'on filtre suivant les critères Systeme!C1:D2
Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Worksheets("Systeme").Range("C1:E2"), Unique:=False
'on selection les lignes visibles
Selection.SpecialCells(xlCellTypeVisible).Select
'On copie la selection
Selection.Copy