exécution macro retirer protection

Bonjour,

J'ai presque finalisé mon petit planning. J'en suis au protection.
J'ai protégé le classeur pour éviter que les utilisateurs face des bétises. Je veux introduire une macro qui déprotège quand une autre macro est lancée et je n'y arrive pas.
J'ai introduit les deux procédures avant et après et flute de flute il me dit inlassablement classeur protégé.

Sub Unprotect()
Dim Worksbook As String
Workbook("PlanningRX").Unprotect "ouioui144"
End Sub

Sub Bouton7_QuandClic()

Dim i As Integer
Dim val As String

For i = 6 To 25
val = """" & Worksheets("RX").Cells(i, 5).Value & """"
Sheets("PLANNING").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "PLANNING - " & Worksheets("RX").Cells(i, 5).Value

Range("C5:AG39").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=" & val
Selection.FormatConditions(1).Font.ColorIndex = 3
Next i

Dim l As Integer
For l = 1 To 2
Sheets(l).Protect "ouioui144"
Next l

End Sub


Sub Protect()
Dim Worksbook As String
Workbook("PlanningRX").Protect "ouioui144"
End Sub

Merci de votre aide

Sophie