Sub MSG_AGORA_P_OK() '***************************************************  AGORA_P OK
'
Dim OutApp As Object
Dim oBjMail As Object
Dim Nom_Fichier As String
Dim TexteMail As String
Dim TexteSign As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set oBjMail = OutApp.CreateItem(0)

Application.ScreenUpdating = False
Application.CutCopyMode = False
Sheets("AGORA_P").Visible = True
Sheets("AGORA_P").Select

TexteMail = RangetoHTML2(Range("A3:b8")) & RangetoHTML(Range("A9:b23")) 'AVEC LOCALISATION
TexteSign = RangetoHTML2(Range("Tab_Signature"))
TexteMail = TexteMail & Chr(10) & Chr(10) & TexteSign

With oBjMail
    .ReplyRecipients.Add (Range("i3").Value)
    .SentOnBehalfOfName = Range("i3").Value
    '.to = Range("i4").Value
    .CC = Range("i5").Value
    .bCC = Range("k5").Value
    .Subject = Range("i6").Value & " du " & Range("affichage!a1") & " [" & Range("k6").Value & "]" & Range("L6").Value
    .HTMLBody = TexteMail
    .Display
    '.Send
End With

Set oBjMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
Sheets("AGORA_P").Visible = False
Sheets("Affichage").Select
ActiveSheet.Shapes("AGORA_P_MSG").Fill.ForeColor.RGB = RGB(0, 255, 0)

End Sub
Sub MSG_AGORA_P_KO() '***************************************************  AGORA_P KO
'
Dim OutApp As Object
Dim oBjMail As Object
Dim Nom_Fichier As String
Dim TexteMail As String
Dim TexteSign As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set oBjMail = OutApp.CreateItem(0)

Application.ScreenUpdating = False
Application.CutCopyMode = False
Sheets("AGORA_P").Visible = True
Sheets("AGORA_P").Select

TexteMail = RangetoHTML2(Range("A3:e8")) & RangetoHTML(Range("A9:e23")) 'AVEC LOCALISATION
TexteSign = RangetoHTML2(Range("Tab_Signature"))
TexteMail = TexteMail & Chr(10) & Chr(10) & TexteSign

With oBjMail
    .ReplyRecipients.Add (Range("i7").Value)
    .SentOnBehalfOfName = Range("i3").Value
    .to = Range("i4").Value
    .CC = Range("i5").Value
    .bCC = Range("k5").Value
    .Subject = Range("i6").Value & " du " & Range("affichage!a1") & " [" & Range("k6").Value & "]" & Range("L6").Value
    .HTMLBody = TexteMail
    .Display
    '.Send
End With

Set oBjMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
Sheets("AGORA_P").Visible = False
Sheets("Affichage").Select

        ActiveSheet.Shapes("AGORA_P_msg").Fill.ForeColor.RGB = RGB(255, 0, 0)
 End Sub