Dim NomClasseur As String
On Error Resume Next
If Not ActiveSheet Is Nothing Then
Application.ScreenUpdating = False
[B]ThisWorkbook.IsAddin = False
Range("Num").Value = Range("Num").Value + 1
ThisWorkbook.IsAddin = True
ThisWorkbook.Save[/B]
ThisWorkbook.Sheets("Débours").Copy after:=ActiveSheet
On Error Resume Next
NomClasseur = "Normal_" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
ActiveWorkbook.Styles(NomClasseur).Delete
On Error GoTo 0
Else
MsgBox "Choisissez d'abord une feuille de calcul ou cliquez sur Document > Création nouveau fichier travail."
End If