ActiveWorkbook.SaveAs Filename:=Fichier
F = Application.GetOpenFilename(, , , , True)
If VarType(F) = vbBoolean Then
MsgBox "Opération annulée"
Else
ESubject = "Mail - " & Range("B4") & " - " & Range("B6") & " " & Range("B8") & " " & Range("D8")
SendTo = "mon@mail"
EBody = "Mail - " & Range("F1")
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = SendTo
.Body = EBody
.Attachments.Add (ThisWorkbook.path & "\" & ThisWorkbook.Name)
.Attachments.Add (F)