Sub macro8()
' envoie tableau uk order injection direct
rep = MsgBox("Voulez-vous envoyer le tableau Uk orders direct injection_tracker par email ?", vbYesNo + vbQuestion, "Envoie Email Photobox")
If rep <> vbYes Then Exit Sub
'suite ok ...
sNomFic = "Tableau uk order .xls"
sPath = "C:\Archives photobox\Archive UK Order\"
'--- Envoi par mail
Sheets("Envoie Email").Select: Range("B87").Select
Dim olapp As Object 'Outlook.Application
Set olapp = CreateObject("Outlook.Application")
Dim msg As Object 'MailItem
Do While Not IsEmpty(ActiveCell)
Set msg = olapp.CreateItem(0)
With msg
.To = ActiveCell.Value
.Subject = Range("B74").Value
.CC = Range("b94").Value
.Body = Range("B77").Value & Chr(13) & Chr(13) & Range("B78").Value & Chr(13) & Chr(13) & Range("B79").Value & Chr(13) & Chr(13) & Range("B80").Value & Chr(13) & Chr(13) & Range("B81").Value & Chr(13) & Chr(13) & Range("B84").Value & Chr(13) & Chr(13)
.Attachments.Add sPath & sNomFic
.Send
End With
ActiveCell.Offset(1, 0).Select
Set msg = Nothing
Loop
'
Set olapp = Nothing
MsgBox "le tableau Uk orders direct injection_tracker a été envoyé par email avec succés ...."
End Sub