Sub protectiosn()
' protège la plage nommée celine A1:C3 avec mdp 'bla'
ActiveSheet.Protection.AllowEditRanges.Add Title:='Celine', Range:=Range( _
'A1:C3'), Password:='bla'
' protège la plage nommée bob A9:C12 avec mdp 'bob'
ActiveSheet.Protection.AllowEditRanges.Add Title:='Bob', Range:=Range( _
'A9:C12'), Password:='bob'
' protège la feuille avec le mdp
ActiveSheet.Protect ('coucou')
End Sub