Effacer la coloration d'une cellule d'une page avec mot de passe

Bonjour.

Sur une page protégée par un mot de passe, je souhaite effacer la couleur de fond. J'ai enregistré cette macro :

----------------------------------------------------------

Sub Macro2()
'
' Macro2 Macro
Range("I6:J23,L6:M23").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

----------------------------------------------------------

Les cellules en questions sont déverrouillées mais il me dit qu'il y a un problème sur : .Pattern = xlNone

Avec ce message :

Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet

Comment faire ?

Merci coop.

Essayez ceci :

    ActiveSheet.Unprotect
    Range("I6:J23,L6:M23").Select
    Range("L6").Activate
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.FillRight

Bonjour

Ci joint ma solution

A+ François

Bonsoir.

Merci pour vos propositions.

Celle de fanfan38 me convient mieux car elle reprotège la feuille après.

C'est une protection juste pour éviter d'effacer des formules sur le fichier comptable d'une association. Ce fichier est partagé entre moi et ma trésorière, donc si le mot de passe apparait dans la macro, ce n'est pas important.