Bonjour,
Réponse trouvée, à disposition pour les prochains nécessiteux :
Dim objoutlook As New Outlook.Application
Dim oBjMail
repertoire = "F:\...\"
With oBjMail
For i = x To y
Set objoutlook = New Outlook.Application
Set oBjMail = objoutlook.CreateItem(olMailItem)
.To = Cells(i, 5).Value
.CC = " "
.Subject = "test"
.Body = "test"
.Attachments.Add repertoire & Cells(i, 4).Value
.Display
.Send
Next i
Set oBjMail = Nothing
Set objoutlook = Nothing
End With