XL 2016 VBA- Créer copie d'une plage de cellule dans nouveau classeur et envoyer par mail

Sub EnvoiMessage()
     Dim Source As Range, Wbk As Workbook, Cible As Range, FS As Object
     Dim Service$, Objet$, Corps$, Signature$, Destinataire$, Expéditeur$, ServeurSMTP$, Motdepasse$, NomFich$
    
     'Création de la pièce jointe
     Application.ScreenUpdating = False
     Set Source = ThisWorkbook.Worksheets("RÉCAP").[Plage_Mail]
     Set Wbk = Workbooks.Add
     Set Cible = Wbk.Worksheets(1).[A1].Resize(Source.Rows.Count, Source.Columns.Count)
     Source.Copy Destination:=Cible
     Cible.Value = Cible.Value            'Transformer les formules en valeurs
    
     'Enregistrement dans le répertoire temporaire
     Set FS = CreateObject("Scripting.FileSystemObject")
     Nom = FS.GetbaseName(ThisWorkbook.FullName)    
     TempFileName = "Recap Jour «" & Nom & "» " & Format(Now, "dd-mmm-yy")
     TempPath = Environ$("temp") & "\"
     Wbk.SaveAs TempPath & TempFileName, FileFormat:=xlOpenXMLWorkbook
     NomFich = Wbk.FullName
     Wbk.Close
    
     Application.ScreenUpdating = True

     'Données du message
     With ThisWorkbook.Worksheets("RÉCAP")
          Service = .[Service]
          Expéditeur = .[Expéditeur]
          Destinataire = .[Destinataire]
          ServeurSMTP = .[ServeurSMTP]
          Motdepasse = .[Motdepasse]
     End With
    
     'A adapter   
    '¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
     Objet = "Récapitulatif du " & Format(Now, "dd/mm/yyyy")
     Signature = "Mr xxxxxxxxxx" & vbCrLf & "Responsable xxxxxxxxx"
     Corps = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail de la recap du jour," & vbCrLf & "cordialement" & vbCrLf & Signature
    '¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
     'Envoi du mail choix Outlook, CDO
     Select Case Service
     Case "Outlook"
          OLK_Mail Destinataire, Objet, Corps, NomFich
     Case "CDO"
          CDO_Mail Expéditeur, ServeurSMTP, Motdepasse, Destinataire, Objet, Corps, NomFich
    End Select
    
     Kill NomFich
    
End Sub

Sub OLK_Mail(Destinataire$, Objet$, Corps$, NomFich$)
     'Envoi du mail par Outlook
     Dim OlkApp As Object, OlkMail As Object
     Set OlkApp = CreateObject("Outlook.Application")
     Set OlkMail = OlkApp.CreateItem(0)
    
     On Error Resume Next
     With OlkMail
          .To = Destinataire
          .CC = ""
          .BCC = ""
          .Subject = Objet
          .Body = Corps
          .Attachments.Add NomFich
          .Send
     End With
     On Error GoTo 0
    
     OlkApp.Quit
     Set OlkMail = Nothing
     Set OlkApp = Nothing
End Sub

Sub CDO_Mail(Expéditeur$, ServeurSMTP$, Motdepasse$, Destinataire$, Objet$, Corps$, NomFich$)
     'Envoi du mail par CDO
     Dim iMsg As Object, iConf As Object, Flds As Variant
    
     Set iMsg = CreateObject("CDO.Message")
     Set iConf = CreateObject("CDO.Configuration")
    
     iConf.Load -1     'Config par défaut
     Set Flds = iConf.Fields
     With Flds
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
          .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Expéditeur
          .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Motdepasse
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServeurSMTP
          
          .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
          .Update
     End With

     With iMsg
          Set .Configuration = iConf
          .To = Destinataire
          .CC = ""
          .BCC = ""
          .From = """" & Application.UserName & """ <" & Expéditeur & ">"
          .Subject = "Récapitulatif du " & Format(Now, "dd/mm/yyyy")
          .TextBody = Corps
          .AddAttachment NomFich
          .Send
     End With
    
     Set iMsg = Nothing
     Set iConf = Nothing
     Set Flds = Nothing
End Sub