Sauvegarde de données et protection VBA Excel

Bonjour,
Je suis débutant en VBA Excel et j'aurai besoin d'un coup de pouce...

Je vous présente le projet:

J'ai deux feuilles sur un classeur. La première sert à rentrer des données et calcule des scores ) à parrtir de ces données. Seule les cellules où l'utilisateur entre les données ne sont pas verrouillées.
Sur cette feuille apparait aussi un bouton "Sauvegarder" qui enregistre les données entrées ainsi que les scores calculé sur la deuxième feuille. Cette feuille constituera à terme une sorte de base de données.

Ci dessous le code de ce bouton:

Option Explicit
Sub CmdSave_Click()

' CmdSave_Click() copie les résultats entré ainsi que les scores calculés dans le tableau de la feuille 2 puis vide la colonne résultat et sauvegarde le classeur

'Séléction de la première ligne vide à partir de la 6eme ligne
Dim k As Integer
k = 6
Do While Worksheets(2).Cells(k, 2) <> ""
k = k + 1
Loop

'Insertion d'une ligne sur laquelle on va enregistrer les données
Sheets("Données Sauvegardées").Select
    Rows(k).Select
    Selection.Copy
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


'transposition des données d'identification
    Range("B" & k & ":E" & k).Select
    Selection.FormulaArray = _
        "=TRANSPOSE('Remplissage du Questionnaire'!R1C4:R4C4)"
    
'transposition des résultats
    Range("F" & k & ": AO" & k).Select
    Selection.FormulaArray = _
        "=TRANSPOSE('Remplissage du Questionnaire'!R9C3:R44C3)"
    
'transposition des scores
    Range("AP" & k & ":AX" & k).Select
    Selection.FormulaArray = _
        "=TRANSPOSE('Remplissage du Questionnaire'!R16C8:R32C8)"

'transposition de l'indice de cohérence
    Range("AY" & k).Select
    Selection.FormulaArray = "='Remplissage du Questionnaire'!R11C9"

'transposition de PCS
    Range("AZ" & k).Select
    Selection.FormulaArray = _
        "='Remplissage du Questionnaire'!R40C8"

'transposition de  MCS
    Range("BA" & k).Select
    Selection.FormulaArray = _
        "='Remplissage du Questionnaire'!R42C8"

ThisWorkbook.Save 'Sauvegarde du classeur

End Sub

Mes problemes sont les suivants:

1 - Lorsque je rentre de nouvelles données dans la feuille 1, les données et scores précédemment enregistrées via le bouton sont eux aussi transformées, or je souhaite pouvoir les garder

2 - La deuxième feuille doit être protégé en écriture pour les utilisateurs. Seule la macro "bouton de sauvegarde" doit pouvoir créer une nouvelle ligne et inscrire les données à sauvegarder, puis bien sur sauvegarder!!!

Est-ce que quelqu'un à une idée de réponse?
Merci d'avance.