Sub hh()
Dim i As Integer, j As Integer, objOutlook As Outlook.Application
Dim Resultat As String
Dim oBjMail As Outlook.MailItem
Dim oBjOl As Outlook.Application
Set oBjOl = CreateObject("Outlook.Application")
'.......
Resultat = "5"
Select Case Resultat
Case 1 To 90
Set oBjMail = oBjOl.CreateItem(0)
With oBjMail
.To = "monemail@blablabla.fr"
.Subject = "Echéance Habilitations du Personnel"
.Body = "Attention, la date de validité d'une formation ou habilitation d'un salarié est inférieure à 3 Mois."
.Send
End With
Set oBjMail = Nothing
End Select
End Sub