extraire d'une liste

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
 
For Each cel In Range("D3:D" & Range("D2").End(xlDown).Row) 'boucle sur toutes les cellules éditées de la colonne D
    If CDate(cel.Value) >= "01/07/09" Then 'condition : si la date de la cellule est supérieure ou égale au 1er juillet 2009
        Set dest = Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
        Range(Cells(cel.Row, 1), Cells(cel.Row, 4)).Copy dest 'copie et colle
        dest.EntireRow.Font.ColorIndex = 3 'couleur d'encre rouge
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub