As a note, is it possible to use a network patch to open the closed source?
assuming this means PATH, then yes

so if the last row was Number 2 it needs to copy on row 3
try like
vb Code:
  1. nextrow = wbkdes.Sheets("Récup Info").cells(wbkdes.Sheets("Récup Info").rows.count, 1).end(xlup).row + 1
  2. wbkdes.Sheets("Récup Info").Cells(nextrow, 1) = wbksour.Sheets("Bon de Travaux").Cells(28, 16)
  3. ' rest of code to fill cells