XL 2019 VBA mails automatiques ligne à ligne

Après recherche, j'ai trouvé le code pour envoyer le mail par ligne. En revanche, je n'arrive pas à construire le corps du mail avec les valeurs qui se trouvent dans les colonnes A et B.

Le code est le suivant :

Sub Mail

Dim LeMail As Variant
Dim I As Integer
Set LeMail = CreateObject("Outlook.Application")


ThisWorkbook.Sheets("Relance").Activate
Range("L1").Select
CptLig = 1
For I = 1 To 500
Selection.Offset(CptLig, 0).Select
Temp = ActiveCell.Value
Mail = Temp
If Mail = "" Then
CptLig = 0

Else

CptLig = 1
With LeMail.CreateItem(olMailItem)
.Subject = "Demande justificatif CB"
.to = Range("L" & I)
.Body = "Bonjour," & _
Chr(13) & Chr(13) & "Sauf erreur de notre part, blablabla." & _
Chr(13) & Chr(13) & "Date : " &

.Display

End With


End If

End Sub

A L'AIDE SVP

Bonsoir Tarek, le forum

Un exemple d'export de plage avec les supers travaux de RON DE BRUIN.
A compléter avec ce que vous avez déjà effectué.

Bonne complétude.
Xl-ment
zebanx