With Msg
.To = EnvoisA
.BCC = Mid(AdressBcc, 1, Len(AdressBcc) - 1)
.Subject = Objet
.Body = Corp
.Display
.Attachments.Add Chemin & NomPdf
.Attachments.Add Rep & NomDoc
End With
Application.DisplayAlerts = False
Msg.Close False
Msg.Delete
OlApp.Quit
Set OlApp = Nothing
Set Msg = Nothing