Sub mailto_reception()
With Sheets("Reception")
dl = .Cells(Rows.Count, 2).End(xlUp).Row
Set ol = CreateObject("outlook.application")
'--boucle
For i = 2 To dl
'--choix envoi ("x" en colonne G) ou pas
If Cells(i, 6) = "x" Then
Cells(i, 7) = ""
Set ml = ol.createitem(0)
ml.To = .Cells(i, 4)
ml.Subject = .Cells(i, 8)
'ml.CC = .Cells(i, 10)
'ml.BCC = .Cells(i, 11)
ml.Body = .Cells(i, 9)
ml.send
Cells(i, 7) = Now
End If
Next i
End With
End Sub