Extraction en fonction d'une date

Private Sub CommandButton1_Click()
Dim Lg As Long
Feuil1.Range("C14:E65536").ClearContents
Lg = Feuil1.Range("C65536").End(xlUp).Row + 1
For Each cel In Feuil2.Range("A10:A" & Feuil2.Range("A65536").End(xlUp).Row)
  If cel.Value = Feuil1.Range("F10") Then
    For cl = 1 To 3
      Feuil1.Cells(Lg, cl + 2) = Feuil2.Cells(cel.Row, cl)
    Next
    Lg = Lg + 1
  End If
Next
End Sub

Sub Macro1()
Sheets("recherche").[F10].Name = "FILTRE"
With Sheets("listing")
    .[F9] = "date"
    .[F10].Formula = "=FILTRE"
    .Range("A9:C23").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("F9:F10"), Unique:=False
    .Range("A9").CurrentRegion.Copy
        With Sheets("recherche").Range("C13")
            .PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            .Range("C13").CurrentRegion.Borders.LineStyle = xlContinuous
        End With
    .[F9:F10] = ""
    .ShowAllData
End With
End Sub