code valide sous excel 2007????

est ce normal que ce code ne marche pas sous excel2007?

Public Sub EnvoiMailOutlook()
Dim OutApp As Object, OutMail As Object, NewB As Workbook
Dim AdresMail As String, AdresMailCC As String, AdresMailBCC As String
Dim Sujet As String, Msg As String
AdresMail = "BB@BB"
AdresMailCC = "BB@BB"
Sujet = "ouverture d'une fiche de non conformité"
Msg = "une non conformité à été détectée"
ActiveSheet.Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo 0
With OutMail
.To = AdresMail
.CC = AdresMailCC
.BCC = AdresMailBCC
.Subject = Sujet
.Body = Msg
.Attachments.Add NewB.FullName
.Display
End With
ActiveWorkbook.Close
Kill ThisWorkbook.Path
End Sub



merci