Bonjour,

Dans ce code, je pars du principe que les 2 classeurs sont ouverts. A copier dans un module.
Pour trouver la dernière ligne, je remonte la colonne A (end(xlup)) mais tu peux changer de colonne si besoin.

Sub CopieLigne603()
    Dim Départ, Destination, F_Départ, F_Destination
    Dim LigneDestination
    Set Départ = Workbooks("Rentaprod.xls")
    Set Destination = Workbooks("Regn.xls")
    Set F_Départ = Départ.Sheets("Rentaprod")
    Set F_Destination = Destination.Sheets("Resexp")
    
    F_Départ.Activate
    F_Départ.Rows("603:603").Copy
    F_Destination.Activate
    LigneDestination = F_Destination.Range("A65356").End(xlup).Row + 1
    F_Destination.Range("A" & LigneDestination).Select
    ActiveSheet.Paste
    F_Départ.Activate
    Application.CutCopyMode = False
End Sub