Sub extraire2()
'
' extraire2 Macro
' Macro enregistrée le 30/10/2007 par jc
'
Sheets("Saisies").Range("a10:i" & [A65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Relance").Range( _
"a1:d2"), CopyToRange:=Sheets("Saisies").Range("a4:i4"), Unique:=False
End Sub