Bonjour
En modifiant les options de Protect (voir l'aide)
Remplaces la ligne correspondante par celle-ci
Sheets("toto").Protect Password:="mo", DrawingObjects:=False, Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True, AllowInsertingHyperlinks:=True