Sub Gras()
'raccourci clavier Ctrl+g
With Sheets("Feuil1")
If ActiveSheet.Name <> .Name Then Exit Sub
If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
.Protect "toto", UserInterfaceOnly:=True
ActiveCell.Font.Bold = True
End With
End Sub
Sub NonGras()
'raccourci clavier Ctrl+G
With Sheets("Feuil1")
If ActiveSheet.Name <> .Name Then Exit Sub
If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
.Protect "toto", UserInterfaceOnly:=True
ActiveCell.Font.Bold = False
End With
End Sub