Attribute VB_Name = "Del_Liaisons"
Option Explicit

Public Sub Del_Liaisons()
Dim oName As Name
Dim sMess As String
On Error GoTo ErrFin
    'Sécurité si macro sauvegardée en XLA
    If Application.Workbooks.Count = 0 Then Exit Sub
    
    If ActiveWorkbook.Names.Count = 0 Then
        MsgBox "Il n'y a pas de Noms dans ce classeur"
        Exit Sub
    End If
    
    For Each oName In ActiveWorkbook.Names
        sMess = "Désirez-vous effacer :" & Chr(10) & Chr(10)
        sMess = sMess & oName.NameLocal & Chr(10) & Chr(10)
        sMess = sMess & oName.RefersToLocal & Chr(10)
        If MsgBox(sMess, vbYesNo + vbQuestion) = vbYes Then oName.Delete
    Next oName
    
    Exit Sub
ErrFin:
    MsgBox Err.Number & " " & Err.Description
    Exit Sub
End Sub