XL 2016 Créer une macros pour insérer une ligne en gardant les formules (document protégé)

Bonjour,

J'ai un tableau recensant les effectifs et leur carrière.
Bien sur, pour éviter toutes mauvaises manipulations, les cellules contenant des formules sont protégées par un mot de passe.
J'utilise une macro qui me permet d'insérer en ligne en copiant la ligne du dessous pour garder les formules :
Sub InsèreCopieLigne()
ActiveSheet.Unprotect "RH"
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 1).ClearContents
ActiveSheet.Protect "RH", True, True, True
End Sub

Maintenant, j'aimerai que la macro vide les cellules non protégées de cette nouvelle ligne. Le but étant d'insérer une ligne vide à remplir lors de l'arrivée d'un nouvel effectif, tout en gardant les formules.
Savez-vous comment faire ?

Je vous remercie.

(PS : Je ne maîtrise absolument pas les VBA. ^^')