Private Sub CommandButton2_Click()
Dim l As Integer
Sheets("OUTIL").Select
l = Sheets("OUTIL").Range("C65000").End(xlUp).Row + 1
With Sheets("OUTIL")
.Range("C" & l) = ListBox1
.Range("D" & l) = TextBox1
.Range("A" & l) = Range("A" & l - 1).Value + 1
l = l + 1
.Range("C" & l) = ListBox1
.Range("D" & l) = TextBox1
.Range("A" & l) = Range("A" & l - 1).Value
End With
UserForm1.Hide
End Sub