Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Long
If Target.Column = 9 And Target.Value > 1 Then
Set OutApp = CreateObject("Outlook.Application")
With Worksheets("feuil1") 'adaptez le nom de feuille
strbody = ""
Set OutMail = OutApp.CreateItem(0)
strbody = .Range("A" & Target.Row) & " et " & .Range("I" & Target.Row) & " sont disponibles"
With OutMail
.To = "*****@****.com"
.CC = ""
.BCC = ""
.Subject = "A vérifier"
.Body = strbody
.Display 'visu @MAIL
'.Send ' pour l'envoi du @MAIL
End With
End With
Set OutApp = Nothing
End If
End Sub