Sub EnvoiMail()
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
   
    .Attachments.Add "U:\" & mainWB.Sheets("Mail").Range("E" & i).Value, olByValue, 0
    .Attachments.Add "U:\" & mainWB.Sheets("Mail").Range("F" & i).Value, olByValue, 0
    .Attachments.Add "U:\" & mainWB.Sheets("Mail").Range("G" & i).Value, olByValue, 0
  


   .HTMLBody = .HTMLBody & "<br><B>Disponibles à la location:</B><br>" _
                & "<img src='cid:Disponibles.jpg'" & "width='1200' height='600'><br>" _
                & "<br>Bonne lecture, <br>CdG</font></span>" _
            & "<br><B>Départs & Retours:</B><br>" _
            & "<img src='cid:DepartsRetoursRCLSem4.jpg'" & "width='1200' height='600'><br>" _
            & "<br>Bonne lecture, <br>CdG</font></span>" _
        & "<br><B>Taux d'utilisation:</B><br>" _
        & "<img src='cid:Taux.jpg'" & "width='1200' height='600'><br>" _
        & "<br>Bonne lecture, <br>CdG</font></span>"
    .Display
    '.Send
End With

Next i

End Sub