Sub Protection_feuille()
'permet d'écrire avec le VBA sans déprotéger et pas de sélection manuelle de cellule(s)
With Worksheets("Synthese")
.Protect Password:="admin19", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True
.EnableSelection = xlNoSelection
End With
End Sub