Ecrire entre 2 lignes dans un classeur à partir de userform

Bonjour à tous!

Je souhaite pouvoir lier deux fichiers entre eux par le biais d'un Userform. Il s'agit de placer entre la dernière ligne du tableau qui est un pied de tableau et la dernière ligne le contenu de l'Userform.

Existe-t-il moyen de le faire simplement?

(Pour le reste du code je sais qu'il n'est pas optimisé mais j'y ai travaillé sur le fichier réel)

Merci.

Je voudrais commencer par remplir au fur et à mesure un tableau à chaque validation de mon userform.

Faire correspondre chaque élément à une cellule du fichier à remplir (classeur ouvert) à la dernière ligne du tableau en question. Je paviensà ouvrir le classeur (workbook.open) aller à la dernière ligne (Derligne = [A1].End(xlDown).Row)

Mais faire la correspondance de manière dynamique reste un mystère...

Merci pour votre aide!

J'ai commencé par un code qui marche à moitié (pas d'erreur mais ne fait pas ce que je lui demande.

Private Sub CommandButton2_Click()
Dim FichierTampon As Workbook
Set FichierTampon = Workbooks.Open("E:\Planning-travail\Classeur2")

'au moment de clique lebouton il se passe :
    ActiveCell.Value = TextBox1 'la cellule active prend la valeur de TextBox1
    ActiveWorkbook.Worksheets(1).Select
    With Sheets(1)
    .[A65536].End(xlUp).Offset(1, 0) = TextBox1.Value
    .[B65536].End(xlUp).Offset(1, 0) = TextBox6.Value
    .[G65536].End(xlUp).Offset(1, 0) = Label6
    .[H65536].End(xlUp).Offset(1, 0) = TextBox2.Value
    .[I65536].End(xlUp).Offset(1, 0) = Label8
    .[J65536].End(xlUp).Offset(1, 0) = TextBox3.Value
    End With
    If OptionButton1 = True Then
        Sheets(1).[E65536].Offset(1, 0) = "J"
    ElseIf OptionButton2 = True Then
        Sheets(1).[E65536].Offset(1, 0) = "N"
    End If
    If OptionButton3 = True Then
        Sheets(1).[D65536].End(xlUp).Offset(1, 0) = "IDE"
    ElseIf OptionButton4 = True Then
        Sheets(1).[D65536].End(xlUp).Offset(1, 0) = "ASD"
    End If
    If OptionButton5 = True Then
        Sheets(1).[F65536].End(xlUp).Offset(1, 0) = "dimanche"
    ElseIf OptionButton6 = True Then
        Sheets(1).[F65536].End(xlUp).Offset(1, 0) = "férié"
    End If

    With FichierTampon
        .Save
        .Close
    End With

    Unload Me 'vide et ferme l'USerForm
End Sub

Est ce que quelqu'un pourrait m'aiguiller?

Je ne remplit pas la dernière ligne avec ce code mais les dernières cellules vides. Et le remplissage ne se fait pas correctement.

Et je trouve pas d'autres idées.