Format de fichier lors envoi mail par macro

 Private Sub emaillogistique_Click()
File2007= ActiveWorkbook.name
File2003=Mid(File2007,1,Len(File2007)-5)

ActiveWorkbook.save as File2003 & ".xls"
ActiveWorkbook.SendMail _
Recipients:=Array("toto@free.fr", "titi@free.fr"), _
Subject:="test"
Workbooks(File2003 & ".xls").close
Kill File2003 & ".xls"

Sub Mail_ActiveSheet()
'Working in 97-2007
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String               With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With               Set Sourcewb = ActiveWorkbook               'Copy the sheet to a new workbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook               'Determine the Excel version and file extension/format
    With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            'You use Excel 2007
            'We exit the sub when your answer is NO in the security dialog that you only
            'see  when you copy a sheet from a xlsm file with macro's disabled.
            If Sourcewb.Name = .Name Then
                With Application
                    .ScreenUpdating = True
                    .EnableEvents = True
                End With
                MsgBox "Your answer is NO in the security dialog"
                Exit Sub
            Else
                Select Case Sourcewb.FileFormat
                Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
                Case 52:
                    If .HasVBProject Then
                        FileExtStr = ".xlsm": FileFormatNum = 52
                    Else
                        FileExtStr = ".xlsx": FileFormatNum = 51
                    End If
                Case 56: FileExtStr = ".xls": FileFormatNum = 56
                Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
                End Select
            End If
        End If
    End With
  	[FONT=Arial]   [B] '    'Change all cells in the worksheet to values if you want[/B]
[COLOR=#000080]    '    With Destwb.Sheets(1).UsedRange
    '        .Cells.Copy
    '        .Cells.PasteSpecial xlPasteValues
    '        .Cells(1).Select
    '    End With
    '    Application.CutCopyMode = False[/COLOR][/FONT] 	  	[FONT=Arial]   [COLOR=#000080] 'Save the new workbook/Mail it/Delete it[/COLOR]
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")[/FONT] 	  	[FONT=Arial]    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        .SendMail "ron@debruin.nl", _
                  "This is the Subject line"
        On Error GoTo 0
        .Close [/FONT][FONT=Arial]SaveChanges:=False[/FONT][FONT=Arial]
    End With[/FONT] 	  	[FONT=Arial][COLOR=#000080]    'Delete the file you have send[/COLOR]
    Kill TempFilePath & TempFileName & FileExtStr[/FONT] 	  	[FONT=Arial]    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With[/FONT] 	[FONT=Arial]End Sub[/FONT]