Microsoft 365 Insérer plage de cellule dans corps de mail

Sub AO_Portage(deb As Integer, fin As Integer)
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim Destinataire As String
Dim PJ As Variant
Dim i As Integer
Dim j As Integer

If MsgBox("Voulez-vous joindre des documents à votre mail ?", vbYesNo + vbQuestion) = vbYes Then
    PJ = Application.GetOpenFilename("Tous les fichiers (*.*),*.* ", 1, "Sélectionnez le ou les fichiers à importer", , True)
    If IsArray(PJ) = False Then
        MsgBox "Opération annulée !"
Exit Sub
End If

        With Sheets("Bdd")
            For i = deb To fin
                Destinataire = .Cells(i, "E")
                Set OutlookApp = CreateObject("outlook.application")
                Set OutlookMail = OutlookApp.CreateItem(0)
                    With OutlookMail
                        .Subject = "xxxx"
                        .To = Destinataire
                        '.CC = ""
                        .Body = "Bonjour," & vbCrLf & vbLf & "xxxx"
                            For j = 1 To UBound(PJ)
                        .Attachments.Add PJ(j)
                            Next
                        .Display
                        '.send
                    End With
            Next i
'Call Enregistrer
Unload UserForm5
        End With


Else

With Sheets("Bdd")
            For i = deb To fin
                Destinataire = .Cells(i, "E")
                Set OutlookApp = CreateObject("outlook.application")
                Set OutlookMail = OutlookApp.CreateItem(0)
                    With OutlookMail
                        .Subject = "xxxx"
                        .To = Destinataire
                        '.CC = ""
                        .Body = "Bonjour," & vbCrLf & vbLf & "xxxxx"
                        .Display
                        '.send
                    End With
            Next i
'Call Enregistrer
Unload UserForm5
        End With
    End If
End Sub