Besoin d'aide formule vba

Bonjour à tous !!!

J'ai créer un classeur sur excel avec 4 userform et novice dans le vba j'aurais vraiment besoin d'aide donc mon classeur se compose de 5 feuilles :
- feuille1 (auto)
-feuille2 (clients)
-feuille3 (base)
-feuille4 (menu)
-feuille5 (archive)
Dans mon userform je voudrai:
Textbox18
rechercher dans (auto) colonne D et enregistrer dans feuilles (Archives ) E
pour qu'il copie toute les informations du véhicule sélectionné dans archives
Textbox17
ranger dans feuille( archive) A

Textbox1
ranger dans feuille( archive) Q
ranger dans feuille(clients)A

Textbox2
ranger dans feuille( archive) R
ranger dans feuille(clients)B

Textbox3
ranger dans feuille( archive) S
ranger dans feuille(clients)C

Textbox4
ranger dans feuille( archive)T
ranger dans feuille(clients)D

Textbox5
ranger dans feuille( archive) U
ranger dans feuille(clients)N

Textbox6
ranger dans feuille( archive)V
ranger dans feuille(clients)F

Textbox7
ranger dans feuille( archive) W
ranger dans feuille(clients)G

Textbox8
ranger dans feuille( archive) X
ranger dans feuille(clients)H

Textbox9
ranger dans feuille( archive) Y
ranger dans feuille(clients)I

Textbox10
ranger dans feuille( archive) Z
ranger dans feuille(clients) J

Textbox11
ranger dans feuille( archive) AA
ranger dans feuille(clients) K

Textbox 12
ranger dans feuille( archive) AB
ranger dans feuille(clients) L

Textbox13
ranger dans feuille( archive) AC
ranger dans feuille(clients) M

Textbox14
ranger dans feuille( archive) AD
ranger dans feuille(clients)O

Textbox15
ranger dans feuille( archive)AE
ranger dans feuille(clients)P

Textbox16
ranger dans feuille( archive)AF
ranger dans feuille(clients)Q

je vous fait un copier coller de mes codes que j'ai essayer de faire.... sa marche mais sa me le colle sur la 2eme ligne même si elle est déjà prise .....Private Sub CommandButton1_Click()
Sheets("Clients").Range("a2") = TextBox1.Text
Sheets("Clients").Range("b2") = TextBox2.Text
Sheets("Clients").Range("c2") = TextBox3.Text
Sheets("Clients").Range("d2") = TextBox4.Text
Sheets("Clients").Range("e2") = TextBox5.Text
Sheets("Clients").Range("f2") = TextBox6.Text
Sheets("Clients").Range("g2") = TextBox7.Text
Sheets("Clients").Range("h2") = TextBox8.Text
Sheets("Clients").Range("i2") = TextBox9.Text
Sheets("Clients").Range("j2") = TextBox10.Text
Sheets("Clients").Range("k2") = TextBox11.Text
Sheets("Clients").Range("l2") = TextBox12.Text
Sheets("Clients").Range("m2") = TextBox13.Text
Sheets("Clients").Range("n2") = TextBox14.Text
Sheets("Clients").Range("o2") = TextBox15.Text
Sheets("Clients").Range("p2") = TextBox16.Text
Sheets("ARCHIVE").Range("A2") = TextBox16.Text
Sheets("archive").Range("q2") = TextBox1.Text
Sheets("archive").Range("r2") = TextBox2.Text
Sheets("archive").Range("s2") = TextBox3.Text
Sheets("archive").Range("t2") = TextBox4.Text
Sheets("archive").Range("u2") = TextBox5.Text
Sheets("archive").Range("v2") = TextBox6.Text
Sheets("archive").Range("w2") = TextBox7.Text
Sheets("archive").Range("x2") = TextBox8.Text
Sheets("archive").Range("y2") = TextBox9.Text
Sheets("archive").Range("z2") = TextBox10.Text
Sheets("archive").Range("aa2") = TextBox11.Text
Sheets("archive").Range("ab2") = TextBox12.Text
Sheets("archive").Range("ac2") = TextBox13.Text
Sheets("archive").Range("ad2") = TextBox14.Text
Sheets("archive").Range("ae2") = TextBox15.Text
Sheets("archive").Range("af2") = TextBox16.Text
Sheets("archive").Range("a2") = TextBox17.Text
Unload UserForm1


Sheets("Clients").Select

Rows("2, 2").Select
'copie de la selection
Selection.Copy
'selection d'une cellule ou tu desire coller la selection
Cells(65535, 1).End(xlUp)(2).Select
'Colle la plage copiée
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


ActiveWorkbook.Save



End Sub

Private Sub TextBox10_Change()

End Sub

'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim i As Integer

If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.TextBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = TextBox2
For i = 1 To 16
If Me.Controls("TextBox" & i).Visible = True Then
Ws.Cells(Ligne, i + 2) = Me.Controls("TextBox" & i)
End If
Next i
End If
End Sub

'Pour le bouton Quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub
End Sub

Private Sub TextBox11_Change()

End Sub

Private Sub TextBox17_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Je m'excuse pour la longueur du texte mais je voulais vraiment tout bien expliquer ....
Je tiens vraiment à remercier par avance ceux qui voudront bien m'aider car c'est un projet très important pour moi et je suis vraiment novice
Encore merci pour tout .