Sub EnvoiMail()
Dim wbksource As Workbook
Set wbksource = ThisWorkbook
Dim adr, x
Dim nom
nom = Feuil6.Range("H1")
Feuil6.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.SaveAs nom
x = ThisWorkbook.Path
Application.DisplayAlerts = True
With wbksource
For i = 27 To 32
adr = wbksource.Sheets("Liste1").Range("L" & i)
If wbksource.Sheets("Liste1").Range("L" & i) = "" Then GoTo fin
ActiveWorkbook.SendMail adr, nom
fin:
Next
ActiveWorkbook.Close False
On Error Resume Next
Kill x & "\*Bon N°*"
End With
End Sub