Sub SendMail_Outlook1()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Range("U3").Value
'.CC = "adresse@wanadoo.fr"
.Subject = Range("AV4")
.Body = Range("A11").Value
.[COLOR="#FF0000"]Attachments = Range("AV10").Value[/COLOR]
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub