Sub convpdf()
Dim sh2 As Worksheet, sh3 As Worksheet, lig&, i&
Set sh2 = ThisWorkbook.Sheets("liste")
Set sh3 = ThisWorkbook.Sheets("dossier")
i = sh2.Range("B200").End(xlUp).Row + 1
sh3.Activate
sh3.Range("A2:G2").Select
Selection.Copy
sh2.Cells(i, 2).Select
end sub