Merci beaucoup @Phil69970
Ca marche à merveille!
J'ai retravaillé le code comme suit :
Private Sub Workbook_Open()
Dim OutApp As Object, OutMail As Object
Dim strBody$, toEmail$, ccEmail$, i%
'Boucle sur les lignes
For i = 3 To 200
'Vérifie que la cellule XER...