Private Sub CommandButton3_Click()
With Worksheets("Accueil")
.Range("D4
8").ClearContents
.Range("D12
16").ClearContents
.Range("D20
24").ClearContents
.Range("G7:H7").ClearContents
.Range("G15:H15").ClearContents
.Range("G23:H23").ClearContents
.Range("H5").ClearContents
.Range("H13").ClearContents
.Range("H21").ClearContents
.CheckBox19 = False
.TextBox1 = Null
.CheckBox8 = False
.CheckBox7 = False
.CheckBox6 = False
.CheckBox5 = False
.CheckBox4 = False
.CheckBox3 = False
.CheckBox2 = False
.CheckBox1 = False
.Range("J5:J8").ClearContents
.Range("J13:J16").ClearContents
.Range("J21:J24").ClearContents
End With
With UserForm10
.ListBox2.Clear
.ListView1.ListItems.Clear
.TextBox1 = Null
End With
Dim a As Worksheet
Dim sc As Workbook
Dim nouveauNom As String
Application.ScreenUpdating = False
Set a = ActiveSheet
nouveauNom = "form.offre" & " " & Range("A2") & " " & Range("E1")
Set sc = Workbooks.Add(xlWBATWorksheet)
sc.SaveAs (nouveauNom & ".xls")
a.Copy Before:=sc.Sheets(1)
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Workbooks(nouveauNom & ".xls").Close savechanges:=False
Kill nouveauNom & ".xls"
Application.ScreenUpdating = True
End Sub