XL 2021 MEssage box si usager créer une nouvelle colonne

Public L, C
Private Sub Worksheet_Activate()
   L = Cells(Cells.Rows.Count, "A").End(xlUp).Row
   C = Cells(1, Columns.Count).End(xlToLeft).Column
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    L2 = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    C2 = Cells(1, Columns.Count).End(xlToLeft).Column
    If L2 > L Then
        MsgBox "Insertion d'une ligne.": L = L2
    ElseIf L2 < L Then
        MsgBox "Suppression d'une ligne.": L = L2
    End If
    If C2 > C Then
        MsgBox "Insertion d'une colonne.": C = C2
    ElseIf C2 < C Then
        MsgBox "Suppression d'une colonne.": C = C2
    End If
End Sub