'sélectionne la plage à protéger:
Range('A1:B2').Select
'protège les cellules sélectionnées:
Selection.Locked = True
Selection.FormulaHidden = False
'protège la feuille:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:='bonjour'