Macro pour Empêcher la suppression et l'insertion des colonnes

Bonjour le forum,

J'ai trouvé sur internet, ce code qui marche très bien pour empêcher la suppression des lignes mais moi, je veux que l'utilisateur ne pourrait pas supprimer ou insérer des colonnes entre les colonnes déjà en place.

Je n'arrive pas à faire les modifications nécessaire, quel qu'un a une idée?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = Columns.Count Then
    Application.EnableEvents = False
    MsgBox "Non, non, suppréssion ligne annulée"
    Application.Undo
    Application.EnableEvents = True
End If
End Sub

Merci d'avance pour votre aide :)

Bonjour,

a priori en remplaçant Columns par Rows:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count = Rows.Count Then
    Application.EnableEvents = False
    MsgBox "Non, non, suppression colonne annulée"
    Application.Undo
    Application.EnableEvents = True
End If
End Sub

A+

Bonjour, une proposition :

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ((Target.Address = Target.EntireColumn.Address)) Then
        With Application
            .EnableEvents = False
            .Undo
            MsgBox "Vous ne pouvez pas insérer ou supprimer une colonne.", vbCritical + vbOKOnly, "Niet !"
            .EnableEvents = True
        End With
    Else
        Exit Sub
    End If
End Sub

Merci à vous les deux, les deux propositions fonctionnent très bien.