Dupliquer une ligne dans une autre feuille à une date indiqué

Sub Macro1()
Dim O As Worksheet 'd?clare la variable O (Onglets)
Dim R As Worksheet 'd?clare la variable R (onglet R?capitulatif)
Dim DL As Long 'd?clare la variable DL (Derni?re Ligne)
Dim DEST As Range 'd?clare la variable DEST (cellule de DESTination)

Set R = Worksheets("Récapitulatif") 'd?finit l'onglet R
For Each O In Sheets 'boucle sur tous les onglets O du classeur
    If Not O.Name = R.Name Then 'condition : si le nom de l'onglet O n'est pas le nom de l'onglet R
        DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'd?finit la derni?re ligne ?dit?e DL de la colonne A de l'onglet O (colonne ? adapter ? ton cas)
        'd?finit la cellule de destination DEST (A1, si A1 est vide, sinon la premi?re cellule vide de la colonne A de l'onglet R)
        Set DEST = IIf(R.Range("A1").Value = "", R.Range("A1"), R.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
        O.Rows("5:" & DL).Copy DEST 'copie les lignes 5 ? DL et le colle dans DEST
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub

Option Explicit
Private Sub Workbook_Open()
test
End Sub
Sub test()
Dim cel, ligne
For Each cel In Sheets("Feuil1").Range("C:C") 'adapter le colonne date
If cel = Date Then
ligne = cel.Row
If ligne = "" Then Exit Sub
Sheets("Feuil1").Rows(ligne & ":" & ligne).Copy
  Sheets("Feuil2").Select
    Rows("1:1").Select 'adapter la destination
    ActiveSheet.Paste
    GoTo fin
End If
Next cel
fin:
End Sub