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