Que veux-tu faire exactement ?
1 - Envoyer la feuille complète en PJ à un mail ?
2 - Envoyer un mail avec pour corps le contenu de la feuille ?
Suivant le cas, le code est différent.
Pour le cas n°1, voir ce code (assez conséquent) : http://www.rondebruin.nl/win/s1/outlook/amail2.htm
Pour le cas n°2, voir ce code (assez simple en réalité) : http://www.rondebruin.nl/win/s1/outlook/amail4.htm
SI ça peut t'aider, voici un extrait du code que j'utilise pour envoyer un mail avec un contenu formaté :
Sub envoi_besoin()
'macro pour envoyer un mail de confirmation
Dim OutApp As Object
Dim OutMail As Object
Dim plage, i As Range
Dim nom As String
nom = Sheets("DATA").Range("B1").Value 'le champ qui contient l'adresse mail du destinataire
Set i = Selection
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Plage.Select
With OutMail
.To = (nom)
.cc = ""
.Subject = "Sujet du mail n° " & Cells(i.Row, 22) 'ici j'ai un numéro de suivi
' ici on utilise la fonction qui converti la plage Excel en données HTML
' afficher
.Display
.HTMLBODY = "Bonjour, <BR>" & vbCrLf _
& "<BR>" & vbCrLf _
& "Contenu du mail (corps du texte) " & vbCrLf _
& "bla bla bla <BR>" & vbCrLf _
& "<BR>" & vbCrLf _
& "Cordialement. <BR>" & vbCrLf _
& "<BR>" & vbCrLf _
& "<b>l'expéditeur du mail ou sa signature</b> <BR><BR>"
.Display
' envoyer
'.Send
End With
Set OutApp = Nothing
Set OutMail = Nothing
Set i = Nothing
End Sub