Private Sub CommandButton1_Click()
With Sheets("sauv")
.Range("A2").Value = UserForm1.ComboBox7.Value
.Range("B2").Value = UserForm1.DTPicker2.Value
.Range("C2").Value = UserForm1.ComboBox2.Value
.Range("D2").Value = UserForm1.ComboBox1.Value
.Range("E2").Value = UserForm1.ComboBox4.Value
.Range("F2").Value = UserForm1.ComboBox5.Value
.Range("G2").Value = UserForm1.ComboBox3.Value
.Range("H2").Value = UserForm1.TextBox8.Value
.Range("I2").Value = UserForm1.ComboBox6.Value
.Range("J2").Value = UserForm1.DTPicker1.Value
.Range("K2").Value = UserForm1.TextBox11.Value
.Range("L2").Value = UserForm1.TextBox13.Value
.Range("M2").Value = UserForm1.TextBox34.Value
.Range("N2").Value = UserForm1.TextBox32.Value
.Range("O2").Value = UserForm1.TextBox31.Value
.Range("T2").Value = UserForm1.OptionButton1.Value
.Range("T2").Value = UserForm1.OptionButton2.Value
.Range("T2").Value = UserForm1.OptionButton3.Value
.Range("U2").Value = UserForm1.TextBox39.Value
End With
Application.Dialogs(xlDialogSaveAs).Show
End Sub