Probleme incrementation auto

Bonjour à Tous,

J'ai besoin d'un peu d'aide sur une macro que j'ai faite il y a quelques temps, jusqu'à présent dès que je fermai le fichier excel et que je le réouvrai , le numéro s'incrémentait automatiquement depuis ce matin le numéro reste figé.

Je mets la macro en copie.

merci d'avance.
Private Sub Workbook_Open()

If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Range("V4") = Range("V4") + 1
ActiveWorkbook.Save
Range("NOM").ClearContents
Range("demande").ClearContents
Range("c16").ClearContents
Range("a47:a58").ClearContents
Range("h47:h58").ClearContents
Range("d61:d67").ClearContents
Range("date").MergeArea.ClearContents
Range("c11").MergeArea.ClearContents
Range("b12").MergeArea.ClearContents
Range("b13").MergeArea.ClearContents
Range("b14").MergeArea.ClearContents
Range("b15").MergeArea.ClearContents
Range("b32").MergeArea.ClearContents
Range("b33").MergeArea.ClearContents
Range("b34").MergeArea.ClearContents
Range("b35").MergeArea.ClearContents
Range("b36").MergeArea.ClearContents
Range("b37").MergeArea.ClearContents
Range("b38").MergeArea.ClearContents
Range("b39").MergeArea.ClearContents
Range("b40").MergeArea.ClearContents
Range("b42").MergeArea.ClearContents
Range("b43").MergeArea.ClearContents
Range("b44").MergeArea.ClearContents
Range("b47").MergeArea.ClearContents
Range("b48").MergeArea.ClearContents
Range("b49").MergeArea.ClearContents
Range("b50").MergeArea.ClearContents
Range("b51").MergeArea.ClearContents
Range("b52").MergeArea.ClearContents
Range("b53").MergeArea.ClearContents
Range("b54").MergeArea.ClearContents
Range("b55").MergeArea.ClearContents
Range("b56").MergeArea.ClearContents
Range("b57").MergeArea.ClearContents
Range("b58").MergeArea.ClearContents
Range("c41").MergeArea.ClearContents
Range("n48").MergeArea.ClearContents
Range("p48").MergeArea.ClearContents

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Chemin As String, Numéro_Facture As Integer, Nom_tech As String

Chemin = ActiveWorkbook.Path
Numéro_Facture = Range("V4")
Nom_tech = Range("W4").Value
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
Chemin & "\BTFI " & Numéro_Facture & " " & Nom_tech & ".xls", FileFormat:=xlWorkbookNormal, CreateBackup:=False

End Sub