Sub Envoi()
 Dim mainWB As Workbook
 Dim SendID
 Dim CCID
 Dim Subject
 Dim Body
 Dim olMail As MailItem
 Dim FichierDisponible As Variant

Set otlApp = CreateObject("Outlook.Application")
 Set olMail = otlApp.CreateItem(olMailItem)
 Set Doc = olMail.GetInspector.WordEditor
 'Dim colAttach As Outlook.Attachments
 Dim oAttach As Outlook.Attachment

Set mainWB = ActiveWorkbook

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

FichierDisponible = mainWB.Sheets("Mail").Range("E" & i).Value
 FichierDepartsRetours = mainWB.Sheets("Mail").Range("F" & i).Value
 FichierTaux = mainWB.Sheets("Mail").Range("G" & i).Value

SendID = mainWB.Sheets("Mail").Range("B" & i).Value
 CCID = mainWB.Sheets("Mail").Range("C" & i).Value
 Subject = mainWB.Sheets("Mail").Range("D" & i).Value
 Body = mainWB.Sheets("Mail").Range("B4").Value
 
 
 With olMail
 .To = SendID
    If CCID = "" Then
    .CC = CCID
    End If
 .Subject = Subject
 'add the image in hidden manner, position at 0 will make it hidden
 .Attachments.Add "U:\" & FichierDisponible, olByValue, 0
 .Attachments.Add "U:\" & FichierDepartsRetours, olByValue, 0
 .Attachments.Add "U:\" & FichierTaux, olByValue, 0

.HTMLBody = .HTMLBody & "Disponibles à la location:" _
 & "" _
& "<img src='cid:" & FichierDisponible & "'><br>" _
& "<img src='cid:" & FichierDepartsRetours & "'><br>" _
& "<img src='cid:" & FichierTaux & "'><br>" _
& "Bonne lecture, CdG"
 .Display
 .Send

End With

Next i

End Sub