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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...

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