La copie ne se fait pas malgré bon positionnement sur la cellule

Bonjour,
C'est surement rien, mais je n'y arrive pas.
Dans une feuille je copie les cellules C1 et C2 que je veux copier dans une autre feuille dans les cellules situées en dessous d'une cellule sélectionnée d'après une date. j'arrive bien sur la cellule mais la copie ne s"effectue pas.

Range("C1:C2").Select
selection.Copy
Workbooks.Open ("D:\ESSAI\comptage TBORD.xlsx")
Dim Celtbord As Range
Set Celtbord = Cells.Find(what:=Date, after:=ActiveCell).Offset(1, 0).Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Merci d'avance si quelqu'un peu me donner un peu d'aide.