Private Sub CommandButton1_Click()
Dim feuilleTravail As Worksheet
Set feuilleTravail = ActiveWorkbook.Sheets("listes")
Dim numLigne As Integer
numLigne = 2
While feuilleTravail.Cells(numLigne, 1).Value <> ""
numLigne = numLigne + 1
Wend
feuilleTravail.Cells(numLigne, 1).Value = TextBox1.Text
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub