bonjour

Il suffit de mettre ce code et cela fonctionnera comme tu le souhaites.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("no_facture").Value = Left(Range("no_facture").Value, 8) _
& Format(Right(Range("no_facture").Value, 4) + 1, "0000")
End Sub

--

Toujours zen