Private Sub CommandButton1_Click()
dim X as long
with Sheets("Feuil1")
x=.cells(rows.count,"A").end(xlup) (2)
.range("A" & x)=me.TextBox1
.cells(x, "B")=me.TextBox2
.cells(x, 3)=me.TextBox3
end with
for x= 1 to 3
me.Controls("TextBox" & x)=""
next x
End sub