erreur d'execution 1004

Sub nouvellecategorie()
Dim x As Long
Dim y As Long
Dim w As Integer
Dim z As Integer


Application.ScreenUpdating = False
x = Sheets("source nv produit").Cells(65535, 1).End(xlUp)(2).Row
'x cellule vide en bas de colonne 1 sur feuille source nv prod
y = Sheets("Stock pâtisserie").Cells(65535, 6).End(xlUp)(2).Row
'y cellule vide en bas de colonne 6 sur feuille stock pâtisserie
w = Sheets("Stock pâtisserie").Cells(5, 16000).End(xlToLeft).Column
'w cellule vide a la fin de la ligne 5 sur feuille stock pâtisserie
z = Sheets("Stock pâtisserie").Cells(7, 16000).End(xlToLeft).Column
'z cellule vide a la fin de la ligne 7 sur feuille stock pâtisserie


With Sheets("Nouveau produit").Cells(13, 3)
.Copy Sheets("source nv produit").Cells(x, 1)
.Cut Sheets("Stock pâtisserie").Cells(y + 1, 6)
Cells(y + 1, 1).ClearContents

End With

Sheets("Stock pâtisserie").Select
Range(Cells(y + 1, 1), Cells(y + 1, w)).Interior.ColorIndex = 3 '<-- index couleur
Cells(y + 1, 7).FormulaR1C1 = "Unité"
Range(Cells(y + 1, 6), Cells(y + 1, 7)).Characters.Font.ColorIndex = 2
Range(Cells(y + 1, 6), Cells(y + 1, 7)).Characters.Font.Size = 8
Range(Cells(7, 2), Cells(7, z)).Copy Range(Cells(y + 2, 2), Cells(y + 2, z))
Range(Cells(y + 2, 2), Cells(y + 2, 7)).ClearContents
Range(Cells(6, 6), Cells(y, 7)).Copy Sheets("Perte pâtisserie").Range(Cells(5, 1), Cells(y + 5, 2))
Range(Cells(6, 6), Cells(y, 6)).Copy Sheets("Production journalière").Range(Cells(2, 1), Cells(y + 5, 1))
Range(Cells(6, 6), Cells(y, 6)).Copy Sheets("Commande journalière").Range(Cells(2, 1), Cells(y + 5, 1))
Range(Cells(6, 6), Cells(y, 6)).Copy Sheets("Perte").Range(Cells(2, 1), Cells(y + 5, 1))
Range(Cells(6, 7), Cells(y, 7)).Copy Sheets("Production journalière").Range(Cells(2, 3), Cells(y + 5, 3))
Range(Cells(6, 7), Cells(y, 7)).Copy Sheets("Commande journalière").Range(Cells(2, 3), Cells(y + 5, 3))
Range(Cells(6, 7), Cells(y, 7)).Copy Sheets("Perte").Range(Cells(2, 3), Cells(y + 5, 3))


Sheets("Nouveau produit").Activate
Application.ScreenUpdating = True
End Sub