Gestion des noms définis

Option Explicit
Sub Champs_lister()
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Champs_du_classeur").Delete
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Champs_du_classeur"
    Selection.ListNames
    Application.DisplayAlerts = True
End Sub

Application.DisplayAlerts = False
    Control = ThisWorkbook.Names("controlOK").Value
    If IsEmpty(Control) Then
        ActiveWorkbook.Names.Add Name:="controlOK", RefersToR1C1:="=""True"""
    Else
        MsgBox "control a la valeur" & Control
    End If
Application.DisplayAlerts = True