Sub ProtegerToutesCellulesFormules () With ActiveSheet.Unprotect . Cells.Locked = False .Cells.SpecialCells(xlCellTypeFormulas).Locked = True .Protect AllowDeletingRows:=True End With End Sub
Pour protéger une cellule avec une formule en un seul clic, vous pouvez utiliser ce code.