VBA: Comment envoyer directement depuis excel un mail

Bonjour,

Je bloque complètement sur un code permettant d'envoyer un mail depuis une feuille excel. Alors je profite de la communauté pour vous envoyer cette demande afin que vous puissiez me guider à travers cette longue traversé du désert :-)

L'objectif:
Idéalement, à partir d'un code VBA, réussir à envoyer une sélection de chacune des feuilles (cellule A1 jusqu'à la dernière ligne renseignée) à chacun des destinataires correspondants.

Voici le premier morceau de code déjà créer:

'Déclaration de variable

Dim OutlookApp As Object
Dim OutlookMail As Object
Dim i As Byte

Sub Email()


For i = 2 To ThisWorkbook.Worksheets("abekkal").Range("D" & Rows.Count).End(xlUp).Row

Set OutlookApp = CreateObject("outlook.application")
Set OutlookMail = OutlookApp.CreateItem(0)

On Error Resume Next
ActiveSheet.Select

Application.ScreenUpdating = False

NbLigne = Ws.Range("A" & Application.Rows.Count).End(xlUp).Row

Ws.Range("A1:G" & NbLigne).Select

With Selection.Parent.MailEnvelope.Item

.To = Ws.Range("J2").Value



.Subject = "Relance facture(s) non approuvée(s)"

.Send

End With

Next i

On Error Resume Next
ActiveSheet.Next.Select

MsgBox "votre mail à été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"

Application.ScreenUpdating = True

End Sub


Le deuxième morceau créer et qui fonctionne uniquement pour l'onglet "feuil2 »
Sub EnvoiMail()

'Déclaration de variable

Dim Mafeuille As Worksheet 'La feuille contenant le tableau à envoyé
Dim NbLigne As Integer 'Nombre de lignes à récupérer

'Affectation des variables
Set Mafeuille = ThisWorkbook.Sheets("abekkal") 'on defini la feuille sur laquelle on envoi le tableau de bord

'Désactivation du raffraichissement de l'écran
Application.ScreenUpdating = False

'On calcule le nombre de ligne à prendre dans la feuille à partir de la colonne A
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

'On séléctionne la plage à copier
Mafeuille.Range("A1:G" & NbLigne).Select

'Envoyé le tableau dans le corps d'un mail avec l'instruction VBA "MailEnvelope"
With Selection.Parent.MailEnvelope.Item

'Destinataire Direct
.To = Mafeuille.Range("J2").Value



'Objet du mail
.Subject = "Relance facture(s) non approuvée(s)"

'Envoi du mail
.Send

End With

MsgBox "votre mail à été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"

Application.ScreenUpdating = True


End Sub

J'ai également mis a votre disposition les copie écran au format JPEG;

Merci d'avance pour votre aide,
Saajo