XL 2013 BUg bizarre; pb d'impression lors d'un envoi de mail ???!!!

[Jawst]

Bonjour à tous,

j'ai une macro qui envoie des mail automatiquement qui marche très bien sur un autre fichier beaucoup plus petit mais sur un autre fichier elle m'affiche ca:



Quelqu'un peut-il me dire d'où ca vient et comment l'enlever..
Voila ma macro si vous voulez voir:

Sub relance_frns()
  For Each sh In Worksheets
        Select Case sh.Name
        Case "Macro", "Qualite", "extrait", "Supplier index", "PVI", "courrier"
        Case Else
            sh.Activate
            ActiveSheet.Copy
            Range("T:T").EntireColumn.Hidden = True
            ActiveSheet.SaveAs Filename:="C:\Users\cccuia\Documents\Relance\" & Range("D2").Value
            'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
            ' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
            Dim olApp As Outlook.Application
            Dim olMail As MailItem
            Dim CurFile As String
            Set olApp = New Outlook.Application
            Set olMail = olApp.CreateItem(olMailItem)
            CurFile = "C:\Users\cccuia\Documents\Relance\" & Range("D2").Value & ".pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
                                            Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
            With olMail
                .To = Range("T2")
                '.CC = "name2@domain2.com"
                .Subject = "sujet"
                .Body = Workbooks("PVI").Sheets("courrier").Range("A1")
                .Attachments.Add CurFile
                .Display
                '.Send
            End With

            ' Effacer les variables objets
            Set olMail = Nothing
            Set olApp = Nothing

            ActiveWorkbook.Close
            Kill "C:\Users\cccuia\Documents\Relance\*.xls"
            Kill "C:\Users\cccuia\Documents\Relance\*.pdf"
        End Select
    Next
End Sub

Merci d'avance,
Jawst