Incrémenter un numéro de facture après sauvegarde

Bonjour,

J'ai besoin d'incrémenter un numéro de facture en F1 en cliquant sur le bouton "Sauvegarde" => module 2 dans VBA

Aujourd'hui, j'ai réussi à incrémenter un numéro de facture en cliquant sur le bouton "imprimer" => module 1 dans VBA
mais je ne trouve pas le code pour la sauvegarde...

Ma facture :


ThisWorkBook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then
  Cancel = True
  Imprimer
End If
End Sub

Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & "Facture Client" & "_" & [F1].Value & ".xls"
    ActiveWorkbook.SaveCopyAs "C:\Users\evehel\Desktop\Accueil Secrétariat 2016\Facture Client\Facture Clients 2016" & "\" & nom
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Sheets("Feuil1").[F1] = [F1] + 1
End Sub

Module 1 :

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
  For n = 1 To Val(n)
    .PrintOut
    .[F1] = .[F1] + 1 'numérotation
  Next
End With
Application.EnableEvents = True
End Sub

Module 2 :


Merci de votre aide !!

Sub Sauvegarde()
Dim Fact As String
    Fact = ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Fact

Application.EnableEvents = True
End Sub

Cordialement,

Blowyn