vObjet = "Relance écheance " & Format(Cells(Lig, 2).Value, "DD/MM/YYYY") ' description
vMessage = "Cher Madame, Monsieur ," & vbCrLf & vbCrLf _
& " votre facture n° " & Cells(Lig, 4).Value _
& " à échéance " & Format(Cells(Lig, 2).Value, "DD/MM/YYYY") _
[B]& " pour un montant de " & Cells(Lig, 3).Value & " est impayée, " & [/B]vbCrLf & vbCrLf _
& "Cordialement"