Creer un macro

Bonjour,

J'ai un soucis pour appliquer le macro qu' eriiic m'a conseillé sur le pc de mon epouse....
je cree un macro que je nome "cochage"
il s'ouvre une fenetre ou il est ecrit:

Sub cochage()

End Sub


ou dois je mettre ce macro qu'eriiic as ecrite ? (macro de cochage decochage de cellule par simple clic)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E:E65536")) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value = "" Then Target.Value = "x" Else Target.Value = ""
Cancel = True