Sub Macro1()
Dim derlig As Long
derlig = Sheets("Base").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("extrait").Columns("A:D").ClearContents
Sheets("Base").Range("A2:D" & derlig).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Base").Range("G2:G3"), CopyToRange:=Sheets("extrait").Range("A2"), _
Unique:=False
End Sub