Verrouillage de cellules sujet

Bonjour à tous,

J'aimerais pouvoir verrouiller toutes les cellules d'une feuille à l'exception de quelques unes.
J'ai programmé quelque chose, mais il semblerait que cela ne fonctionne pas. Le message d'erreur suivant s'affiche : "Impossible de définir la propriété locked de la class Range".

Mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim Feuil_Type_Fi As Worksheet Dim Feuil_Active As Worksheet Set Feuil_Active = ThisWorkbook.Sheets("Feuil") 'Déprotège la feuille Feuil_Active.Unprotect 'On verrouille toutes les cellules Feuil_Active.Cells.Locked = True 'On déverrouille les cellules auxquelles on veut pouvoir accéder Feuil_Active.Cells(9, 5).Locked = False Feuil_Active.Cells(26, 13).Locked = False Feuil_Active.Cells(31, 13).Locked = False Feuil_Active.Cells(32, 13).Locked = False Feuil_Active.Cells(33, 13).Locked = False Feuil_Active.Cells(34, 13).Locked = False 'On applique la protection sur la feuille Feuil_Active.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

---

Est-ce que quelqu'un a une idée de l'erreur ? Le debugger se positionne sur la ligne " Feuil_Active.Cells(26, 13).Locked = False"

Merci d'avance pour votre aide !