Sub envoiPlageCellules()
Sheets("Feuil2").Activate
Range("A1:c15").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ..."
.Item.To = Range("G1").Value
.Item.Subject = "désignation ..."
.Item.Send
End With
Application.Goto Range("A1"), True
Sheets("Feuil1").Activate
End Sub