Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$19" Or Target.Address = "$I$19" Or Target.Address = "$N$19" Then
If [G24].Value >= 2 Then
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = CreateObject("Outlook.Application") '2e modif
Set msg = olapp.CreateItem(olMailItem)
msg.To = "karine0804@gmail.com"
msg.Subject = "Cartons cartouches d'encre"
msg.Body = "Il y a plus de 2 cartons pleins, il est temps d'appeler Emmaüs"
msg.Display 'pour visualiser au lieu d'envoyer
'msg.Send
End If
End If
End Sub