Numérotation auto

Bonjour à toutes et tous,

J'ai une macro venant d'Excel (PARDONNEZ-MOI !!!), qui est vraiment géniale (PARDONNEZ-MOI BIS !!!).
Elle permet de :
- Incrémentation la cellule E12 de +1 à l'ouverture du fichier Excel
- Création d'un fichier (au même endroit) portant le nom de FactureX.xlsx, à la fermeture du fichier, ou X représente le numéro incrémenté.
- Il n'y a pas de demande d'enregistrement du fichier d'origine à la fermeture.

Option Explicit
Private Sub Workbook_Open()
    Range("E12") = Range("E12") + 1
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_facture As Integer

Chemin = ActiveWorkbook.Path
Numéro_facture = Range("E12")
Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:= _
    Chemin & "/home/syl/Factures " & Numéro_facture & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Je ne veux plus utiliser ni logiciel, ni système d'exploitation Microsoft !!!
Merci de me dire comment modifier cette macro VBA pour pouvoir l'utiliser sur un fichier Calc (.ods) ?

Mil merci pour votre aide ;-)