txt = txt & fmMail.listAttestations.List(0, col) & " / "
immat$ = ActiveCell.Offset(0, -8).Value
echeance$ = ActiveCell.Offset(0, -5).Value
.Body = "Bonjour," & vbCr & vbCr & _
"le contrôle réglementaire de votre véhicule immatriculé " & immat$ & _
" arrive à échéance le " & echeance$ & "," & vbCr & vbCr & _
"veuillez me contacter afin de planifier un rendez-vous." & vbCrLf & vbCrLf & _
"D'avance merci" & vbCrLf & _
"Cordialement"