Creer un commandbutton enregistrer

Bonjour,

J'aimerais faire pour mon projet en VBA un boutton Enregistrer, il faut savoir que je suis débutant dans ce domaine, pour l'instant j'ai codé ceci :

Private Sub CommandButton1_Click()

Dim nom As String

nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
     
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    
Rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

End Sub

Ce code marche bien, mais j'aimerais que quand je clique une seconde fois sur le boutton enregistrer il sauvegarde 8_06_2015projetexcel2 puis après 8_06_2015projetexcel3.....

J'aimerais si possible aussi que mon enregistrement, enregistre que la feuil1.

Merci pour votre aide ! j'espère avoir était assez clair.

Cordialement