Copier une portion de ligne d'une feuille vers une autre

Sub copieValeur()
    With Sheets("Saisie")
        If IsNumeric(.Range("K5")) Then
            With .Range("C34:AL34")
                Sheets("Réalisé").Range("A" & Int(.Range("K5"))).Resize(1, .Columns.Count).Value = .Value
            End With
        End If
    End With
End Sub

Sub Copie()
Dim n As Variant, plage As Range
n = Sheets("Saisie").[K5]
If n > 65536 Or n < 1 Then MsgBox "Saisie!K5 non valide !", 48: Exit Sub
Set plage = Sheets("Saisie").[C34:AL34]
Sheets("Réalisé").Cells(n, "A").Resize(, plage.Count) = plage.Value
End Sub