Cde deprotection des onglets ne fonctionne pas

Bonjour

Débutant dans le VBA, j'ai une formule liée à un bouton qui protège les onglets de mon classeur qui fonctionne et la formule qui les déprotèges ne fonctionne pas.

Les formules :

Sub ProtegerTout()
Dim feuille As Worksheet: Dim motpasse As String

motpasse = InputBox(" Mot de passe de protection ? ")

For Each feuille In Worksheets
feuille.Protect motpasse
Next feuille

End Sub

Sub DeProtegerTout()
Dim feuille As Worksheet: Dim motpasse As String

motpasse = InputBox(" Mot de passe de deprotection ? ")
For Each feuille In Worksheets
feuille.Unprotect motpasse
Next feuille

End Sub

J'ai une erreur 1004 et un soulignement en jaune de l'avant derniere ligne : feuille.Unprotect motpasse

Merci de votre aide

Bonsoir,

j'ai copié/collé votre code et cela fonctionne...

@ bientôt

LouReeD

Merci de la réponse

Je vais tester le fichier sur un windows.