Microsoft 365 copie valeur texte box dans cellule

Sub ajout()
    Sheets("Listes Salariés").[L2] = Sheets("Formulaires").TextBox1.Text
    Sheets("Listes Salariés").[M2] = Sheets("Formulaires").TextBox2.Text
    Sheets("Listes Salariés").[N2] = Sheets("Formulaires").TextBox3.Text
End Sub

Sub ajout()
    DL = 1 + Sheets("Listes Salariés").Range("A65500").End(xlUp).Row  ' Première ligne dispo
    Set F = Sheets("Formulaires")
    With Sheets("Listes Salariés")
        .Cells(DL, "A") = F.[B6]    'Prénom
        .Cells(DL, "B") = F.[E6]    'Nom
        .Cells(DL, "C") = F.[B9]    'Trigramme
        .Cells(DL, "D") = F.[B12]   'Date entrée
        .Cells(DL, "E") = F.[B15]   'Type contrat
        .Cells(DL, "F") = F.[B18]   'Département
        .Cells(DL, "G") = F.[B21]   'Entité
        .Cells(DL, "H") = F.[B24]   'Poste
        .Cells(DL, "I") = F.[B27]   'Partners
        .Cells(DL, "J") = F.[B30]   'Matériel
        .Cells(DL, "K") = F.[B33]   'GSM
        .Cells(DL, "L") = F.TextBox1.Text   'Acces drive
        .Cells(DL, "M") = F.TextBox2.Text   'Mails
        .Cells(DL, "N") = F.TextBox3.Text   'Remarques
    End With
    'Effacement cellules
    Range("B6:C6,E6:F6,B9:C9,B12:C12,B15:C15,B18:C18,B21:C21,B24:C24,B27:C27,B30:C30,B33:C33").ClearContents
    F.TextBox1.Text = ""
    F.TextBox2.Text = ""
    F.TextBox3.Text = ""
End Sub