contenu formulaire vers base de données

Bonjour à tous

avec cette macro j'incrémente la feuille 'Archives" avec un formulaire contenant une listbox multicolonne et textbox
mais je voudrais la modifier pour incrémenter à la suite des données existantes dans la feuille "Archives"
donc rechercher la 1ère ligne vide de la base de données
ligne = Sheets("Archives").[A65000].End(xlUp).Row + 1


Private Sub CommandButton14_Click()
Dim x As Integer
With Worksheets("Archives")
For x = 1 To Me.ListBox4.ListCount
.Cells(x, 1) = TextBox1.Value
.Cells(x, 2) = TextBox3.Value
.Cells(x, 5) = Me.ListBox4.List(x - 1, 0)
.Cells(x, 6) = Me.ListBox4.List(x - 1, 1)
.Cells(x, 7) = Me.ListBox4.List(x - 1, 2)
Next x
End With
end sud

merci pour votre aide