Intégrer un tableau dans corps d'un mail auto

Sub Test()

  Dim OL As Object
  Dim OLmail As Object
  Dim Tableau As Range

Tableau = Activeworksheet.Range("A1:F6")

  Set OLk_Appli = CreateObject("Outlook.Application")
    If OLk_Appli.Explorers.Count > 0 Then
    Else
    On Error Resume Next
    OLk_ok = Shell("C:\Program Files\Microsoft Office\Office18\outlook.exe", vbHide)
    End If
 Err.Clear
 On Error GoTo 0

  Set OL = CreateObject("Outlook.Application")
  Set OLmail = OL.CreateItem(0)


    With OLmail
        .To = "xxx"
        .cc = "xxx"
        .Subject = "Test"
        .Body = "Bonjour," & vbCrLf & vbCrLf _
& "Ci-dessous un recap de la situation " & vbCrLf & vbCrLf _
& "TABLEAU" & vbCrLf & vbCrLf _ 'C'est ici que je souhaiterai l'intégrer
& "Bien à vous,"
        .Display
    End With
    
    
    Set OLmail = Nothing
    Set OL = Nothing
    Set OLk_Appli = Nothing

End sub