Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Long, DerLig As Long
Set OutApp = CreateObject("Outlook.Application")
With Worksheets("feuil1") 'adaptez le nom de feuille
DerLig = .Range("M" & Rows.Count).End(xlUp).Row
For L = 1 To DerLig
'If L = 27 Then Stop
strbody = ""
If .Range("M" & L) = FAUX Then
Set OutMail = OutApp.CreateItem(0)
strbody = .Range("A" & L) & " et " & .Range("I" & L) & " 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
.Range("M" & L) = "FAUX" & " Ok" 'modification pour eviter x envoi
End If
Next L
End With
Set OutApp = Nothing
End Sub