wbks.Sheets("marchetendue").Range("A1:F" & wbks.Sheets("marchetendue").Range("A65536").End(xlUp).Row).Copy
wbkc.Sheets("import").Range("A1").PasteSpecial xlPasteValues
wbks.Sheets("marchetype").Range("A1:B" & wbks.Sheets("marchetype").Range("A65536").End(xlUp).Row).Copy
wbkc.Sheets("import").Range("K1").PasteSpecial xlPasteValues