Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim N As Name, Flag As Boolean
Flag = False
For Each N In ThisWorkbook.Names
If N.Name = "Classeur" Then
Flag = True
'La macro de suppression
End If
Next N
If Not Flag Then ActiveWorkbook.Names.Add Name:="Classeur", RefersToR1C1:="=""""", Visible:=False
End Sub