Const olFormatHTML As Long = 2
Const olMailItem As Long = 0
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adresse As String, olApp As Object, M As Object
Dim NumClt As String, NomClt As String
If Not Intersect(Range("L:L"), Target) Is Nothing Then
If Target.Value = "ACP" Then
NumClt = Range("D" & Target.Row).Value
NomClt = Range("E" & Target.Row).Value
Adresse = "alain.deloin@inconnu.fr"
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = "Client ACP"
.BodyFormat = olFormatHTML
.HTMLBody = NumClt & " " & NomClt & "<br>" _
& "la cellule " & Target.Address(0, 0) & " a été modifiée"
.Recipients.Add Adresse
.Send
End With
End If
End If
End Sub