Associer une message box à une insertion de ligne

Bonjour à tous, comme l'intitulé de mon sujet l'indique, je cherche un moyen d'associer une message box à chaque fois que quelqu'un voudrait insérer une ligne ( ou colonne ) à un fichier excel. Est ce quelqu'un saurait comment faire svp ?

Merci d'avance

J'ai essayer de faire ce code mais ça ne marche pas :/

Sub insertion()

   If selection.EntireRow.Insert Then
   MsgBox "Merci de respecter la mise en forme du classeur", vbCritical
   End If

End Sub

Bonjour,

si c'est pour afficher un message seulement, essayer ceci:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
For Each Sh In Sheets
If Sh.Selection.Insert Then
MsgBox "Merci de respecter la mise en forme du classeur", vbCritical
Exit Sub
End If
Next
End Sub

ça averti seulement, pour offrir deux options à faire, vbcritical ne suffit pas dans msgbox

Le code que vous m'avez donné m'affiche la msgbox à chaque modification ( entrée d'une valeur dans une cellule, suppression d'une cellule... ). Or je souhaiterais que celle ci s'affiche uniquement lorsqu'une ligne ou une colonne est insérée.

Votre code revient a faire

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

MsgBox "Merci de respecter la mise en forme du classeur", 16

End Sub

j'ai l'impression... Je met à disposition le fichier dans lequel je voudrai utiliser cette msgbox.

Merci de votre aide