Private Sub CommandButton4_Click()
With Sheets("archive")
derligne = .Range("A65535").End(xlUp).Row + 1
.Cells(derligne, 1) = ComboBox1
.Cells(derligne, 2) = TextBox1
.Cells(derligne, 3) = TextBox2
.Cells(derligne, 4) = ComboBox2
.Cells(derligne, 5) = TextBox3
.Cells(derligne, 6) = TextBox4
.Cells(derligne, 7) = TextBox5
.Cells(derligne, 8) = TextBox6
.Cells(derligne, 9) = TextBox7
End With
Unload Me
End Sub