Help problème de protection feuille Excel sauf cellule

Bonjour à tous
Help j’ai besoin de votre aide cela fais 3 jours que je bloque.
Je vous explique j’ai un fichier ou j’ai créer une Macro voir ci-dessous : tous fonctionne sauf quand je veux protège la feuille du classeur sauf les cellules entre H2 à H15, la macro se lance et bloque message d’erreur 400 puis elle ne colorie plus les cellules. Je suis désespéré. Je vous remercie pour votre aide.

........................................................................
Sub enregistrer_classeur ()

Dim Chemin As String, Fichier As String

Chemin = ´´C:\Users\´´
Fichier = ´´Commande´´

ActiveWorkbook.SaveCopyAs Chemin & Fichier

MsgBox (´´Enregistrement effectué’´)

Range (´´H2:H15’´).Clear

Range (‘´H2’´).Interior.Color = RGB (242, 242, 242)

Range (‘´H3’´).Interior.Color = RGB (221, 242, 218)

Range (‘´H4’´).Interior.Color = RGB (197, 217, 242)

Range (‘´H2’´).Select

End Sub
......................................