Sélection de cellule selon couleur pour déverrouillage

Bonjour,

J'ai un fichier avec de nombreux onglets sur lequel ce trouve des cellules en fond RGB (255,255,153).

Je cherche dans un premier temps a vérifier si toute les cellules du fichier sont bien verrouiller.

Dans un deuxième temps a sélectionner les cellules en RGB (255,255,153) pour les déverrouiller.

J'ai essayé ceci sans résultat pour la deuxième parti :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Interior.Color = RGB(255, 255, 153) Then Target.Locked = False
End If
End Sub

Pouvez-vous m'aider ?

Sub DeverrouillerCellulesRGB()
    Dim cell As Range

    For Each cell In ActiveSheet.UsedRange
        If cell.Interior.Color = RGB(255, 255, 153) Then
            cell.Locked = False
        End If
    Next cell

    ActiveSheet.Protect
End Sub

Ce code fonctionne bien à condition de ne pas avoir de cellule fusionné !