Sub envoi()
If MsgBox("Validez l'envoi de mail", vbYesNo, "Attention!") = vbNo Then
Exit Sub
Else
Dim i&
For i = 2 To 10 Step 1
Sheets(2).Range("B4").Value = Sheets(1).Range("A" & i).Value
Sheets(2).Range("C8").Value = Sheets(1).Range("B" & i).Value
Sheets(2).Range("C11").Value = Sheets(1).Range("C" & i).Value
Sheets(2).Range("C14").Value = Sheets(1).Range("D" & i).Value
Sheets(2).Range("C17").Value = Sheets(1).Range("E" & i).Value
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Sheets(1).Range("F" & i).Value
.Subject = ObjetMail
.Body = CorpsMail
If AttachMail <> "" Then
.Attachments.Add AttachMail
End If
.Display
End With
SendKeys "%v", True
Set objMail = Nothing
Set objOL = Nothing
Sheets(2).Range("B4").ClearContents
Sheets(2).Range("C8").ClearContents
Sheets(2).Range("C11").ClearContents
Sheets(2).Range("C14").ClearContents
Sheets(2).Range("C17").ClearContents
Next i
End If
End Sub