Macro événementielle lors de suppression / ajout de ligne

Private Sub Workbook_Open()
On Error Resume Next 'si la sélection n'est pas un Range
If Selection.Columns.Count = Columns.Count Then Selection.Name = "cible"
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next 'si la sélection n'est pas un Range
If Selection.Columns.Count = Columns.Count Then Selection.Name = "cible"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Selection.Columns.Count = Columns.Count Then Selection.Name = "cible"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Selection.Columns.Count = Columns.Count Then
  Dim a As String
  On Error Resume Next
  a = Range("cible").Address
  If a = "" Then MsgBox "Ligne(s) supprimée(s)"
  Selection.Name = "cible"
End If
End Sub