问(错误9！)将值从一个单元格复制到不同工作表中的另一个单元格

EN

Private Sub button1_click()
   Var_data = Introduction.Cells(i,8)
   Application.ScreenUpdating = False
   Workbooks.Open Filename:=ThisWorkbook.Path & "\item.xls"
   ThisWorkbook.Activate
   Unit_Of_Measure.Cells(i,2) = var_data
   Workbooks("item.xls").Close SaveChanges:=True
   Application.ScreenUpdating = True
End Sub

Dim classeur As Workbook
Dim derlig As Integer 'dernière ligne de la colonne B de template
derlig = Range("B" & Rows.Count).End(xlUp).Row
Set classeur = Application.Workbooks.Add
With classeur
Sheets.Add
Sheets.Add
Sheets.Add
Worksheets(1).Name = "Items"
Worksheets(2).Name = "Unit_Of_Measure"
Worksheets(3).Name = "Item_Tax_Authorities"
Worksheets(4).Name = "Item_Optional_Fields"
.SaveAs "C:\Users\Ikrame\Desktop\Stage SVL\mass upload\Item upload.xls"
End With
Cells(1, 1).Value = "ITEMNO"
Cells(1, 2).Value = "DESC"
Cells(1, 3).Value = "ITEMBRIKID"
Cells(1, 4).Value = "FMTITEMNO"
Cells(1, 5).Value = "CATEGORY"
Cells(1, 6).Value = "CNTLACCT"
Cells(1, 7).Value = "STOCKITEM"
Cells(1, 8).Value = "STOCKUNIT"
Cells(1, 9).Value = "UNITWGT"
Cells(1, 10).Value = "SELLABLE"
Cells(1, 11).Value = "WEIGHTUNIT"
Dim i As Long
For i = 5 To derlig
'Ne pas oublier la partie de l'ITEM NUMBER
Cells(i - 3, 3).Value = "PRODCT"
Cells(i - 3, 10).Value = "1,05"
Cells(i - 3, 11).Value = "Kg"
Cells(i - 3, 7).Value = "TRUE"
Workbooks("Item upload.xls").Worksheets("Items").Cells(i - 3, 2) = Workbooks("template.xlsx").Worksheets("Introduction").Cells(i, 3).Value
Workbooks("Item upload.xls").Worksheets("Items").Cells(i - 3, 4) = Workbooks("template.xlsx").Worksheets("Introduction").Cells(i, 2).Value