renvoie de lignes dans onglets

Sub renvoi()
lesmois = Array("janvier", "fevrier", "mars", "avril")
For n = 5 To Sheets("saisies").Range("A65536").End(xlUp).Row
 mois = Month(Sheets("saisies").Range("A" & n))
 If Sheets(lesmois(mois - 1)).Range("A65536").End(xlUp).Row + 1 < 5 Then
  ligne = 5
 Else
  ligne = Sheets(lesmois(mois - 1)).Range("A65536").End(xlUp).Row + 1
 End If
 Sheets("saisies").Rows(n).Copy Destination:=Sheets(lesmois(mois - 1)).Range("A" & ligne)
Next n
End Sub

Sub test()
Dim i As Long
With Sheets("saisies")
    For i = 5 To Range("A65536").End(xlUp).Row
        If IsDate(.Cells(i, 1).Value) Then Sheets(MonthName(Month(.Cells(i, 1).Value))).Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 10).Value = _
            .Cells(i, 1).Resize(1, 10).Value
    Next i
End With
End Sub