Joindre le classeur actuel à un mail

    ' Création d'un nouveau classeur
        Workbooks.Add
        NOMclasseur = ActiveWorkbook.Name        

    ' Copie de la feuille
            Windows("COMMANDE MATERIEL DE BUREAU.xlsm").Activate
            Sheets("Cathalogue UP78").Select
            [B1:J200].Copy
            
            Windows(NOMclasseur).Activate
            Range("B1").PasteSpecial Paste:=xlAll
            
     
    ' Envoit par mail
        'Déclaration des variables
            Dim ApplicOutlook As Object
            Dim ElémentCourrier As Object
            Dim cellule As Range
            Dim Sujet As String
            Dim Email As String
            Dim mois As String
            Dim Msg As String
                    
        'Création de l'objet Outlook
          Set ApplicOutlook = CreateObject("Outlook.Application")
        
        ' Données du mail
              Sujet = "COMMANDE DE MATERIEL EQUIPE " & QUELLEequipe
              Email = "zzzz@yyyy.zzz"
              Msg = "Demande de materiel de bureau pour l'équipe " & QUELLEequipe

        'Création du message et envoi
              Set ElémentCourrier = ApplicOutlook.CreateItem(0)
              
              With ElémentCourrier
                .[B]Attachment.Add ActiveWorkbook [/B]                
                 .To = Email
                .Subject = Sujet
                .Body = Msg
                .Display
              End With