Sub numeroFACT()
'///////////////////////////////////////
'// au départ //
'// Saisir dans //
'// Fichier/Propriétes/Résumé/Titre //
'// Facture 0000 //
'///////////////////////////////////////
Dim NoFact As Long
NoFact = _
Int(Mid(ThisWorkbook.BuiltinDocumentProperties("Title"), 9)) + 1
If NoFact = 0 Then NoFact = 1
With ThisWorkbook
.BuiltinDocumentProperties("Title") = _
"Facture " & Format(NoFact, "00000")
End With
End Sub