Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 25/05/2009 par VBACrumble
Dim SWKb As Workbook, DWKb As Workbook
Set SWKb = ThisWorkbook
Set DWKb = Workbooks("paramètres colonnes M.xls")
Application.ScreenUpdating = False
With SWKb.ActiveSheet
.[M1].AutoFilter 1, "oui"
.AutoFilter.Range.Offset(1).Copy DWKb.Sheets(1).[A1]
.AutoFilterMode = False
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub