Microsoft 365 automatiser un bouton "efface cellule"

Public Sub AdresseShape()
    Adresse = (ThisWorkbook.Sheets(1).Shapes(Application.Caller).TopLeftCell.Address)
    L = Range(Adresse).Row: C = Range(Adresse).Column
    Cells(L, C - 1).ClearContents
    Cells(L, C - 2).ClearContents
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [J8:J100]) Is Nothing Then
        If Target <> "Effacer" Then Exit Sub
        L = Target.Row: C = Target.Column
        Cells(L, C - 1).ClearContents
        Cells(L, C - 2).ClearContents
    End If
End Sub

Range(Cells(L, C - 2), Cells(L, C - 1)).Merge