Macro pour bloquer cellules

Bonjour

Je recherche une macro qui me permette de bloquer des cellules en même temps que je les effaces. Un autre clic me permettrait de les déverrouiller.

Ci joint mon fichier test

Merci pour l'aide

Bonne journée

Ma

Bonjour

Voici pour le bouton 10

Sub M_1()
' M_1 Macro 
With ActiveSheet
    .Unprotect ""
    With .Range("E16,G16")
        .ClearContents
        .Locked = True
    End With
    .Range("C16").Locked = False
    .Protect ""
End With
End Sub

Il vous suffit d'adapter pour les deux autres boutons

Cordialement

Bonsoir Dan

Vu comme cela, ça à l'air tellement facile ....il suffisait de l'écrie en code :-)

En tous cas , merci beaucoup pour cette réponse, c'est exactement cela que je voulais

Merci encore

Bonne soirée

Ta