sélection et incrémentation sur une feuille

Bonjour à tous, bonjour le forum

Voila 1 semaine bientot que je travail avec visual. Votre forum m'a beaucoup aider car en prenant le temps de fouiller on trouve tout plein de bout de code tres utile. En outre bien qu'il soit généreusement remplis de post variée, je ne trouve pas comment faire une manip.
J'ai beau eu fouiller partout, prendre des bout de code et les tourner dans tout les sens, je n'arrive a rien!!🙁🙁🙁
Je souhaite, à l'aide d'un bouton de commande, incrémenter une valeur présent dans une autre feuille.

voici déja le code que j'ai taper

Private Sub CommandButton1_Click()
Sheets("Feuil2").Select
Range("B7").Select
Selection.Copy
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ThisWorkbook.SaveAs Format(Date, "yyyy") & "_" & Range("B3").Value & ".xls"
End Sub

Cliquez pour agrandir...

J'ai réaliser un fichier exemple pour pas vous embeter avec mon gros fichier ^^

Le but est qu'apres l'incrementation ca lance une sauvegarde. L'incrémentation permet donc de défférencier les sauvegarde.

En tout cas j'ai essayer de tourner ca dans tout les sens, et j'ai toujours l'erreur 1004.

Je vien donc quérir votre aide