If ThisWorkbook.Worksheets("Initialisation").Range("Q17").Value = "TEST" Then
With OutMail
.To = Destinataire
.CC = DestinataireCopie
.BCC = DestinataireCopieCache
.Subject = Sujet
.Importance = ImportanceMessage '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
.HTMLBody = Message & RangetoHTML(rng)
.Attachments.Add lien_piece_jointe
.Display
End With
Else
With OutMail
.To = Destinataire
.CC = DestinataireCopie
.BCC = DestinataireCopieCache
.Subject = Sujet
.Importance = ImportanceMessage '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
.HTMLBody = Message & RangetoHTML(rng)
.Attachments.Add lien_piece_jointe
.Send
End With
End If