' Traduction mise en forme conditionnelle
Dim Cel As Range
Dim Quantite As String
Dim F As Worksheet
Dim verifie As String
Quantite = "I16:I100"
For Each Cel In F.Range(Quantite)
' des que la couleur interieure d'une cellule est .colorindex 45 ou 3 alors verifie = True
Select Case Cel.Value
Interior.ColorIndex = 45
Interior.ColorIndex = 3
verifie = True
' Boucle mise en forme conditionnelle
If verifie = True Then
' Envoi du mail
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c6")
Subj = "Commande artciles"
Msg = "Attention : Pensez à commander les articles"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
' Attente ouverture outlook
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + 2
Do Until Timer >= Fin
DoEvents
Loop
' Envoi du message
SendKeys ("%s")
End If
' Fermeture et enregistrement du classeur
ActiveWorkbook.Save
Application.Quit
End Sub