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

[Hugues1976]

Bonjour à toutes et à tous.

Je me demande s'il est possible d'avoir un message box si un usager ajoute une colonne ou une ligne sur une feuille Excel.
Je ne veux pas une protection sur la feuille mais seulement un message box.
Vers quoi dois-je me tourner ?

MErci et bonne journée

 

[sylvanu]

Bonsoir Hughes,
En PJ une possibilité où j'ai défini une zone délimité par "Ne pas toucher à cette cellule." en A2000 et JZ1 dans la feuille Test.
Si on essaie dans cette plage d'insérer ou supprimer une ligne ou une colonne, un message apparait.
Ensuite les index sont remis à jour pour la prochaine suppression/insertion. Avec :

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