Dim Maille As String
Dim Sujet As String
Dim DernLigne as long
DernLigne = Range("A1048576").End(xlUp).Row
For a = 2 To DernLigne
If Sheets("Feuil3").Cells(a, 4).Value <> "SUCCEED" Then
'alors on rejette directement
Sheets("Résultat").Range("A1").Value = "ANOMALIE"
Maille = "moi@gmail.com"
Sujet = "Anomalie"
Set OL = CreateObject("Outlook.Application")
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = Maille
.Subject = Sujet
.Categories = "Banking-Info"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Exit Sub
End If
Next