Proteger seulement une cellule

Bonjour,

J'ai une erreur :
Runtime error 1004
Application defined or object defined error

Je ne comprend pas du tt le probleme ....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Blockage(ByVal MyRange As Range, ByVal ProtectMode As Boolean)
    With MyRange
        If ProtectMode Then
            .Parent.Unprotect "Test"
            .Locked = True
            .Parent.Protect "Test"
 
        Else
            .Parent.Unprotect "Test"
            .Locked = False
            .Parent.Protect "Test"
 
        End If
    End With
End Sub

Merci d'avance