Bonjour MyDearFriend
Parfaitement bien vu pour la suggestion.
La macro devient :
Sub ProtectionPlage()
'La mise à jour de l'écran est désactivée
Application.ScreenUpdating = False
'Déprotection de la feuille automatique avec le mot de passe incorporé à la macro
ActiveSheet.Unprotect Password:="***"
'Déverouillage de toutes les cellules
Cells.Locked = False
'Verouillage de la plage sélectionnée
Range("A3:B25,E3:E25,G3:G25,M3:M25,Q3:Q25,R3:U25,X3:X25,A26:X27,A1:X3").Locked = True
ActiveSheet.EnableSelection = xlUnlockedCells
'Protection de la feuille automatique avec le mot de passe incorporé à la macro
ActiveSheet.Protect Password:="***", DrawingObjects:=True, Contents:=True, Scenarios:=True
'La mise à jour de l'écran est activée
Application.ScreenUpdating = True
End Sub
Bonnne journée
Cordialement
Bernard