Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de cette pièce ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
With Sheets("Liste")
L = .Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
.Range("F" & L).Value = TextBox1
.Range("G" & L).Value = TextBox2
.Range("H" & L).Value = TextBox3
.Range("I" & L).Value = TextBox4
.Range("J" & L).Value = TextBox5
.Range("K" & L).Value = TextBox6
.Range("L" & L).Value = TextBox7
.Range("M" & L).Value = TextBox8
End With
End If
End Sub