Bonsoir Joco, bonsoir le forum,
Une méthode entre autres :
1. Dans T1, sélectionne la plage où tu as déverrouillé les cellules.
2. Puis, lance le code ci-dessous :
Sub Macro1()
Dim I As Byte 'déclare la variable I (Incrément)
Dim PL As Range 'déclare la variable PL (PLage)
Dim APL As String 'déclare la variable APL (Adresse de la PLage)
APL = Selection.Address 'définit la variable APL
For I = 2 To Sheets.Count 'boucle sur tous les onglets I du classeur (en partant du second)
With Sheets(I) 'prend en compte l'onglet de la boucle
.Unprotect 'déprotège
Set PL = Sheets(I).Range(APL) 'définit la plage PL
PL.Locked = False 'dévérouille la plage PL
.Protect 'protège
End With 'fin de la prise en compte de l'onglet de la boucle
Next I 'prochain onglet de la boucle
End Sub