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