Numéro de facture automatique

Bonsoir,
J'ai un fichier pour créer des devis,j'aimerais que mon numéro de devis change de +1 que seulement à l'enregistrement sous.
j'ai actuellement une macro mais le numéro change que à l'enregistrement, ce qui ne me convient pas.
ci dessous ma macro actuelle

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

Merci d'avance pour votre aide