Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim devis As String
Dim nom_projet As String
ref = Sheets("Calcul").Range("E6")
devis = Sheets("Calcul").Range("E7")
nom_projet = Sheets("Calcul").Range("E5")
If Sheets("Calcul").Range("E21") = "4" Then
Sheets(Array(Sh.Name, "Page de garde (1)", "CGV (2)", "Offre client (1)", "Schémas 4T")).Select
Else
Sheets(Array(Sh.Name, "Page de garde (1)", "CGV (2)", "Offre client (1)", "Schémas 6T")).Select
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ref & "_" & devis & " " & nom_projet & " - " & "Offre de prix.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Offre client (1)").Activate
End Sub