Macro pour copier/coller données en fonction de la date

Sub Macro1()
Dim F As Object 'déclare la variable F (onglet)
Dim D As Object 'déclare la variable D (onglet)
Dim R As Range 'déclare la variable R (Recherche)
Dim DEST As Range 'déclare la variable DEST (CEllule de DEstination)
Dim PL As Range 'déclare la variable PL (PLage)

Set F = Sheets("Fiche Paie") 'définit  l'onglet F
Set D = Sheets("Data Time") 'définit  l'onglet D
'définit la recherche R (recherche la date en B4  de l'onglet F dans la colonne 1 (=A) de l'onglet D
Set R = D.Columns(1).Find(F.Range("B4").Value, , xlFormulas, xlWhole)
'si il existe au moins une occurrence trouvée, définit la cellule de destination DEST
If Not R Is Nothing Then Set DEST = R.Offset(0, 3)
Set PL = F.Range("B2").CurrentRegion 'définit la plage PL
Set PL = PL.Offset(2, 3).Resize(PL.Rows.Count - 2, 3) 'redéfinit la palge PL
PL.Copy 'copie la plage PL
DEST.PasteSpecial (xlPasteValues) 'colles les valeurs de la plage PL dans la cellule de destination DEST
End Sub

Sub Copie()
Dim mois As Range, t, i As Variant
With Sheets("Fiche Paie")
  Set mois = .[B2] 'peut varier
  t = .Range(mois(3, 4), mois(65000, 4).End(xlUp)) 'matrice
End With
With Sheets("Data Time")
  i = Application.Match(mois(3), .[A:A], 0)
  If IsNumeric(i) Then .Cells(i, 4).Resize(UBound(t)) = t
End With
End Sub

Sub Copie()
Dim mois As Range, t, i As Variant
Set mois = Sheets("Fiche Paie").[B2].CurrentRegion 'peut varier
t = mois(3, 4).Resize(mois.Rows.Count - 2) 'matrice, plus rapide
With Sheets("Data Time")
  i = Application.Match(mois(3, 1), .[A:A], 0)
  If IsNumeric(i) Then .Cells(i, 4).Resize(UBound(t)) = t
End With
End Sub

Sub Copie()
Dim mois As Range, t, i As Variant
Set mois = Sheets("Fiche Paie").[B2] 'peut varier
t = mois(3, 4).Resize(Application.Count(mois.EntireColumn) - 1) 'matrice
With Sheets("Data Time")
  i = Application.Match(mois(3), .[A:A], 0)
  If IsNumeric(i) Then .Cells(i, 4).Resize(UBound(t)) = t
End With
End Sub