Sub NouvelleFacture()
Dim Feuille As Worksheet
Dim Maxi As Long, Actuelle As Long
For Each Feuille In ThisWorkbook.Worksheets
If InStr(1, Feuille.Name, "n°") > 0 Then Actuelle = Split(Feuille.Name, "n°")(1)
If Actuelle > Maxi Then Maxi = Actuelle
Next
'Détection de l'absence de l'onglet
On Error Resume Next
Sheets("Modèle").Activate
If Err.Number > 0 Then MsgBox "Pas d'onglet Modèle, alors j'arrete mon traitement": Exit Sub
On Error GoTo 0
Sheets("Modèle").Range("A1000") = ""
Sheets("Modèle").Copy After:=Worksheets(Worksheets.Count) ''nouvel onglet
ActiveSheet.Name = "Facture n°" & Maxi + 1
'Mémorise le num de la facture en cours pour pouvoir ensuite la sauvegarder
Sheets("Modèle").Range("A1000") = Maxi
End Sub
Sub sauve()
Dim Maxi As Long
Dim Nom As String, Chemin As String
Maxi = Sheets("Modèle").Range("A1000")
Chemin = "C:\TEMP"
Nom = "Facture n°" & Maxi
Sheets("Facture n°" & Maxi).Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Nom & ".PDF" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
End Sub