Envoi mail par macro

Bonjour

Je souhaite envoyer un mail via excel avec des adresses mails se trouvant dans une cellule du fichier excel , et y joindre une fichier excel dont le chemin sera aussi indiquer dans une cellule.

L'objet du mail se trouveras aussi dans une cellule

Le corps du mail peux être intégrer dans la macro mais il fait plusieurs lignes

Pouvez vous m'aider car j'arrive bien a envoyer un mail par macro mais je sais pas comment recupere les informations dans les cellules

Merci

A tester (je n'ai pas outlook !) :

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim numero As Integer
Dim nompdf As String

On Error GoTo erreur

    nompdf = Environ("Temp") & "\" & "fichier test"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = Sheets("param").Range("B1")
        .Subject = Sheets("param").Range("B2")
        .body = "test"
        .ReadReceiptRequested = True
        .Attachments.Add nompdf & ".pdf"
        .display
    End With

    Set messagerie = Nothing
    Set email = Nothing

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Merci , je vais essayer de mettre en pratique dans mon fichier durant le week end ,