Erreur de compilation

Bonjour,

Bonjour,

voici mon code, je veux simplement que l'adresse mail dans ma cellule L2 soit directement entré dans mon code car j'ai beaucoup de mail à envoyer. Lors que je met range("L2").Value j'ai erreur de compilation...

Sub envoi_mail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim olFormatHTML As String
MsgBox ("Préparation du MAIL pour envoie du catalogue PLV Flexico. " & Chr(10) & Chr(10) & "La fenêtre du message va s'afficher" & Chr(10) & "Merci de valider l'envoi")
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
Set ColAttach = OutMail.attachments
Set oAttach = ColAttach.Add("\\srv03.flexico.priv\desktops$\meryem.ozcan\Desktop\Meryem\Nouveau dossier\philip.jpg")
Set oAttach = ColAttach.Add("\\srv03.flexico.priv\desktops$\meryem.ozcan\Desktop\Meryem\Nouveau dossier\emailing mai def.jpg")
strbody = "Mail client"
On Error Resume Next
With OutMail
.To = "NomVariable = range("L2").Value"
.CC = ""
.BCC = ""
.Subject = "Catalogue Flexico PLV"
.BodyFormat = olFormatHTML
.HTMLBody = "Bonjour, <BR><BR> "Bien à vous"
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Merci