Option Explicit
Sub envoi_email()
Dim messagerie As Object
Dim courriel As Object
Cells.Copy
Set messagerie = CreateObject("Outlook.Application")
Set courriel = messagerie.CreateItem(0)
With courriel
.To = "truc.muche@gouv.fr"
.Subject = "envoi mail"
.display
End With
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "^v", True
Application.CutCopyMode = False
Set courriel = Nothing
Set messagerie = Nothing
End Sub
je n'ai pas réussi à charger ton fichier ... donc à adapter