Bonjour à tous,
Pour protéger mes feuilles, j'utilise le code suivant :
For Each sht In ActiveWorkbook.Worksheets
With sht
.Select
.Protect Password:="zorro", UserinterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlNoRestrictions
End With...