PROGRAMME 1

Bonjour,

Je suis en train de concevoir un programme avec VBA de excel qui me permet de remplir de des cellules d'excel de A1 à J1 puis de A2 à J2 comme suit :

Private Sub CommandButton2_Click()
Dim limite As Long
Sheets("Feuil1").Select
If Range("A1") = "" Then
limite = Range("A65635").End(xlUp).Row
Else
limite = Range("A65635").End(xlUp).Row
End If

Range("A" & limite).Select

ActiveCell.Offset(1, 0) = UserForm1.TextBox1.Text
ActiveCell.Offset(1, 1) = UserForm1.TextBox2.Text
ActiveCell.Offset(1, 2) = UserForm1.TextBox3.Text
ActiveCell.Offset(1, 3) = UserForm1.TextBox4.Text
ActiveCell.Offset(1, 4) = UserForm1.TextBox5.Text
ActiveCell.Offset(1, 5) = UserForm1.TextBox6.Text
ActiveCell.Offset(1, 6) = UserForm1.TextBox7.Text
ActiveCell.Offset(1, 7) = UserForm1.TextBox8.Text
ActiveCell.Offset(1, 8) = UserForm1.TextBox9.Text
ActiveCell.Offset(1, 9) = UserForm1.TextBox10.Text

End Sub

Je voudrais en saisisant sur un autre UserForm et dans un TextBox une donnée de A1 à J2 que les autres données dans les autres cellules de la même ligne apparaissent.