Toujours un problème de copie de cellule

Bonjour,

Je reviens vers vous car je sélectionne 2 cellules dans une feuille et je veux les copier dans une autre feuille sous la cellule contenant la date du jour.

J'arrive bien à me positionner sur la bonne cellule mais la copier ne se fait pas malgré avoir suivi le conseil de faire la copie en utilisant activesheet.

Range("C1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[59]C,""=a"")"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[59]C,""=m"")"
Range("C1:C2").Select
selection.Copy

Workbooks.Open "D\Comptage.xlsm"
Sheets("feuil1").Activate
Dim Celtbord As Range
Set Celtbord = Cells.Find(what:=Date).Offset(1, 0).Select

C'EST A CET ENDROIT QUE JE BLOQUE

ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Encore merci à vous pour votre aide.