XL 2016 Protection de nombreuses cellules sur plusieurs pages

Bonjour,

Je trouve énormément d'aide via tous les posts qui se trouvent dans ce forum, c'est une énorme richesse. Merci !

Malgré tout, je n'arrive pas à résoudre mon problème : j'essaie de protéger via une macro unique plusieurs cellules (beaucoup) de 3 feuilles, en retirant d'abord la protection des feuilles, puis en remettant la protection.

Etapes :
- Sélectionner les 3 feuilles concernées
- Retirer la protection des 3 feuilles (avec mot de passe)
- Protéger les cellules (identiques sur les 3 feuilles)
- Remettre la protection avec le mot de passe sur les 3 feuilles

Voici la macro qui ne fonctionne pas (trop de cellules apparemment).
Comment faire ?
Merci pour vos retours.
Florent.


Sub Macro8()

Worksheets(Array("Feuil11", "Feuil12", "Feuil13")).Select
Sheets("Feuil1").Unprotect
Sheets("Feuil2").Unprotect
Sheets("Feuil3").Unprotect
ActiveSheet.Unprotect "motdepasse"
Range("B6:B12,D612,F6:F12,H6:H12,J6:J12,L6:L12,B18:B24,D1824,F18:F24,H18:H24,J18:J24,L18:L24,B30:B36,D3036,F30:F36,H30:H36,J30:J36,L30:L36,B42:B48,J78:J84,L78:L84,B90:B96,D9096,F90:F96,H90:H96,J90:J96,L90:L96,B102:B108,D102108,F102:F108,H102:H108,J102:J108,L102:L108,B114:B120,D114120,F114:F120,H114:H120,J114:J120,L114:L120,B126:B132,D126132,F126:F132,H126:H132,J126:J132,L126:L132,B138:B144,D138144,F138:F144,H138:H144,J138:J144,L138:L144,B150:B156,D150156,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162168,F162:F168,H162:H168,J162:J168,L162:L168,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162168,F162:F168,H162:H168,J162:J168,L162:L168D4248,F42:F48,H42:H48,J42:J48,L42:L48,B54:B60,D5460,F54:F60,H54:H60,J54:J60,L54:L60,B66:B72,D6672,F66:F72,H66:H72,J66:J72,L66:L72,B78:B84,D7884,F78:F84,H78:H84").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect "motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub