Macro avant insertion d'une ligne

Bonjour à la communauté !

Voilà, je souhaiterais qu'avant l'insertion d'une ligne, un message apparaisse et indique "Attention, vous allez insérer une ligne !".

J'ai enregistré ce bout de code dans Workbook / SheetSelectionChange :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) x = ActiveCell.Row y = ActiveCell.Column If y <> 1 And x <> 1 Then Exit Sub Else If Rows(x).EntireRow.Select = True Then MsgBox "Attention, vous allez insérer une ligne" Else Exit Sub End If End If End Sub

---

Sauf que lorsque je sélectionne n'importe quelle cellule de la colonne A, la macro me sélectionne alors automatiquement toute la ligne. J'avoue ne pas trop savoir comment m'y prendre... :cry:

J'espère avoir était assez clair et vous remercie d'avance pour vos solutions ! :)

Pour avoir le message sur sélection d'une ligne entière

Code:

---

1 2 3 4

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)   If Target.Columns.Count = Sh.Columns.Count Then MsgBox "Attention, vous avez sléctionné une ligne" End Sub

---

Merci Mercatog !! Donc sii je comprends bien, l'idée c'est de comparer le nombre de colonnes sélectionnées par rapport au nombre de colonnes totales ?

Maintenant, serait-il possible d'afficher un message avant :
- soit l'insertion d'une ligne,
- soit la suppression d'une ligne.

Encore merci d'avance !!