Bonjour,
essaie avec cette correction, à tester
'Copie la 2eme ligne de la premiere feuille dans le classeur source.
'Colle la ligne à la suite de la derniere ligne non vide dans le classeur de
'destination.
WBSource.Sheets("Feuil2").Rows(3).Copy
WBDest.Sheets(2).Cells(i, 1).PasteSpecial Paste:=xlPasteValues