Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim i&
'Si la cellule qui change est A1
If Target.Address = "$A$1" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo Fin
With OutMail
.to = Cells(Application.Match([A1], Columns(6), 0), 7)
.CC = ""
.BCC = ""
.Subject = "ton objet"
.Body = "Bonjour " & [A1] & Chr(13) & "ton texte ici"
.Display 'pour visualiser avant envoi
'.Send 'pour envoyer directement
End With
Set OutMail = Nothing
Set OutApp = Nothing
Fin:
End If
End Sub