Excuses moi, mais je n'ai pas pu joindre mon fichier.
Voici donc mon tableau, suivi du code VBA
Bonne réception
Domi
Nom Taux Date_Fin
PETIT 80 % 31-12-2003
GRAND 80 % 29-01-2003
BIBI 50% 31-03-2004
LILI 90 % 14-05-2004
FIFI 70 % 31-12-2003
RIRI 50% 15-01-2004
DUVAL 70 % 30-11-2003
DUPONT 80 % 30-04-2004
GARCIA 90 % 31-03-2004
MARTIN 50% 30-09-2007
Sub Macro1()
'
' Macro1 Macro
' ''
Sheets("Feuil1").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=">=31/12/2003", Operator:=xlAnd _
, Criteria2:="<17/03/2004"
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub