Sub taMacro()
Dim Pastline as Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Workbooks.Open "C:\che;in\ContratsPerdu.xls"
Application.Workbooks("ContratsPerdu.xls").Worksheets("ContratsPerdu").Select
Range("A1").select
pastline = ActiveCell.End(xlDown).Row
Range("A"&Pastline +1).value = ce que tu veux mettre dedans
End sub