Dim Z As String, L As Long
For L = 1 To UBound(Compte)
Z = Z & MeF(MeF(Compte(L), "td align='left'") & MeF(Format(Annonce(L), "#.00"), "td align='right'") _
& MeF(Format(Reconnu(L), "#.00"), "td align='right'") & MeF(Bordereau(L), "td") & MeF(Difference(L), "td"), "tr")
Next L
Z = MeF(Z, "FONT COLOR='blue'SIZE=3") ' Parce que vous semblez y tenir, mais ce n'est pas une raison pour le répéter pour chaque cellule !
Z = MeF("Compte", "th") & MeF("Montant annoncé", "th") & MeF("Montant Reconnu", "th") & MeF("Bordereau n°", "th") & MeF("Différence", "th") & Z
Z = "<HEAD>" & MeF("Bonjour,<BR><BR>Voici la liste des écarts constatés sur les remises concernant votre agence :<BR><BR>" _
& MeF(Z, "TABLE BORDER") & "<BR><BR>Je reste à votre disposition en cas de besoin<BR><BR>" _
& "<BR>Merci de ne pas répondre à cet email, il s'agit d'un traitement automatique<BR><BR>Cordialement,", "BODY")