Private Sub CmdAjouter_Click()
Dim Derlg&
With Sheets("ToilesRépertoriés")
Derlg = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Cells(Derlg, 1).Value = TextBox1
.Cells(Derlg, 2).Value = TextBox2
.Cells(Derlg, 3).Value = ComboBox1
.Cells(Derlg, 4).Value = ComboBox2
.Cells(Derlg, 5).Value = ComboBox3
.Cells(Derlg, 6).Value = ComboBox4
.Cells(Derlg, 7).Value = TextBox3
.Cells(Derlg, 8).Value = TextBox4
.Cells(Derlg, 9).Value = TextBox5
End With
End Sub