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