Soucis avec copier coller une colonne d'un classeur dans un autre et suppression de l

Bonjour,

Je suis novice en VBA , j'essaie malgré tout d'avancer en recherchant sur ce site entre autre.

Je veux copier une colonne d'un classeur dans un autre par rapport à une date, j'y arrive presque mais toutes les cellules ne sont pas prises en compte en faisant ceci :

recherche de la date dans la feuille planning


ChDir "D:\Planning fab"
Workbooks.Open Filename:="D:\Planning fab\DCP FA.xlsx"

Dim Cel As Range
Dim nblig As Long
Set Cel = Cells.Find(what:=Date, after:=ActiveCell)
If Not Cel Is Nothing Then
Cells(1, Cel.Column).Resize(Cells(Rows.Count, Cel.Column).End(xlUp).Row).Select
Selection.Copy

'Copie de la colone
Workbooks("Récap.xlsm").Activate
Workbooks("Récap.xlsm").Sheets("feuil1").Range("F1").Select
ActiveSheet.Paste
End If

Ensuite dans la feuille "réceptrice de la colonne je veux enlever toutes les lignes dont la cellule de "F6à Fx" n'est pas grisée en faisant :

'Suppression des lignes
Dim zone As Range
Dim der_ligne As Long

Set zone = Range("f7").CurrentRegion
der_ligne = zone.Rows(zone.Rows.Count).Row
For i = der_ligne To 1 Step -1

If Cells(i, 6).Color = 12632256 Then
Rows(i).Delete

Merci d'avance pour votre aide.

End If