Sub format(ByVal control As IRibbonControl)
Dim Nom$, Titre$, ville$, date_recu As Date, lien$, olApp As Object, olMail As Object
ville = Range("ville")
date_recu = Range("date_reception")
nb_logements = Range("nb_logement")
lien = Range("lien_dossier")
Set olApp = CreateObject("outlook.application")
Set olMail = olApp.CreateItem(olMailItem)
Dim i As Byte
For i = 3 To 70
If Cells(i, 14).Value <> "" Then
Titre = Cells(i, 4)
Nom = Cells(i, 5)
Cells(i, Columns.Count).End(xlToLeft).Offset(, 1).Value = Date 'Mettre la date d'envoi au bout de la ligne
With olMail
.To = Cells(i, 14).Value
.Subject = "Consultation d'appel d'offre " & ville & " - Projet de " & nb_logements & " logements"
.HTMLBody = "Bonjour " & Titre & " " & Nom & " <br><br>" & _
"Nous étudions actuellement un projet de construction de <b> " & nb_logements & "</b> " & " logements situé à <b>" & ville & "</b> <br><br>" & _
"Nous souhaitons vous solliciter pour un chiffrage. <br><br>" & _
"La date limite pour recevoir les offres est fixée au : <u><b>" & date_recu & "</b></u><br><br>" & _
"Vous trouverez sur le lien suivant les éléments du dossier : <u><b><a href=" & lien & ">" & lien & "</a></b></u><br><br>" & _
" Si vous n'avez pas la possibilité de nous répondre, veuillez nous le faire savoir par retour d'émail . <br><br>" & _
" Nous restons à votre disposition pour toutes informations complémentaires. <br><br>" & _
"Cordialement "
'.Send
.Display
End With
End If
Next i
End Sub