XL 2010 envoi fichier par mail

Bonjour à tous,

j'ai démarré une nouvelle discussion car je sais pas si on peut reprendre sur une de 3 trois jours.
donc j'ai la macro ci dessous qui fonctionne. pour l'objet et le destinataire du mail une cellule suffit
(Ex: A1 pour le destinataire -- A12pour l'objet)
il renomme l'onglet, mais j'aimerai savoir s'il est possible qu'il renomme le fichier.
merci à vous


Sub Mail()
Sheets("Original").Copy
With ActiveSheet
.Name = "Parka_Janv_18"
.UsedRange.Value = ActiveSheet.UsedRange.Value
'.Shapes("Bouton").Delete
.Columns("g:g").Cut Destination:=Columns("az:az")
.Columns("az:az").EntireColumn.Hidden = True
End With
ActiveWorkbook.SendMail Recipients:=Range("az2:az" & Range("az65535").End(xlUp).Row), Subject:=[a1]
ActiveWorkbook.Close SaveChanges:=False
End Sub