Sub mailto_badge()
With Sheets("badge")
dl = .Cells(Rows.Count, 2).End(xlUp).Row
Set ol = CreateObject("outlook.application")
For i = 2 To dl
If Cells(i, 7) = "x" Then
Cells(i, 8) = ""
Set ml = ol.createitem(0)
ml.To = .Cells(i, 9)
ml.Subject = .Cells(i, 12)
ml.CC = .Cells(i, 10)
ml.BCC = .Cells(i, 11)
ml.Body = .Cells(i, 13)
ml.Display 'afficher le mail
'ml.send '--- si vous souhaitez envoyer directement
Cells(i, 8) = Now
End If
Next i
End With
End Sub