Sheets("Import").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$263").AutoFilter Field:=2, Criteria1:=Array("BD", "001", "005", "RE", "RS"), Operator:=xlFilterValues
With ActiveWindow
End With
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets(Sheets.Count).Name = "IMP04"
ActiveSheet.Range("A1:A65535").AdvancedFilter Action:=x1FilterInPlace, CriteriaRange:=Workbooks("C:\parametrage.xls").Sheets("Feuil1").Range(C2:C20"), Unique:=False