envoyer Uniquement 1 onglet par email

Sub CDO_Mail_Small_Text_2()
Dim iMsg As Object, iConf As Object, strbody$, Fichier$
Dim Flds As Variant, t, Destinataires$

Fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"
ActiveWorkbook.Sheets("planning2017").Copy
ActiveWorkbook.SaveAs Filename:=Fichier

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
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") = "01@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passe"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
t = Range("A1:A15")
Destinataires = Join(Application.Transpose(t), ";")
strbody = "Bonjour, Voici le fichier . Merci!"
With iMsg
Set .Configuration = iConf
.to = "01@gmail.com"
.CC = Destinataires
.BCC = ""
.From = """MR "" <email>"
.Subject = "fichier"
.TextBody = strbody
.AddAttachment Fichier
.Send
Kill Fichier
End With
End Sub

Sub a()
Dim fichier$
fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"
MsgBox fichier
End Sub