Aide erreur automation apres savecopy as

Bonjour,

voila j'ai un petit probleme avec une macro.
En fait je sauvegarde une feuille excel qui s'appelle modele pv sauvegarde
je fais une copie de sauvegarde avec savecopy as que j'appelle pv 250
ensuite, je veux modifier modele pv sauvegarde pour que lors de la prochaine ouverture le numéro inscrit
dans une case soit 251, soit un de plus que la precedente

le probleme est que une fois que j'ai fais savecopy as il y a une erreur
erreur automation

pouvez vous m'aider a resoudre ce probleme

Dim copyname As String
copyname = Range("numeroPV")
wbk1.Save
wbk1.SaveCopyAs FileName:="G:\semfos\1-Btmeca\Ravoire\mes documents\Controle\Pv\Liste Pv dimension\Pv dimension " & h & "\" & "PV" & copyname & ".xls"
wbk1.Sheets("PV").Select
Cells(6, 11).Value = 251