Fermeture automatique sur VBA

Bonjour,

j'ai un petit soucie avec VBA, j'ai fait une macro qui en fonction des éventuelles projets présant sur une liste va ouvrire des onglets.
Maintenant, j'aimerais qu'elle puisse être supprimé à la fermeture d'Excels, pour éviter à chaque fois de mettre "ne pas enregistrer", et que dés que j'oublie avoir 1000 onglets à l'ouverture.


sub...()

Dim c As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Sheets(shLDP).Range("B2:B" & Sheets(shLDP).Range("B2").End(xlDown).Row)
If c <> "NO" Then
Sheets("Exemple").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
End If
Set c = c(2, 1)
Next c
Application.ScreenUpdating = True

End Sub