En enlevant le début (inutile) du code comme ceci :
.HTMLBody = "" & _
"Bonjour " & ThisWorkbook.Sheets("Anniversaire").Range("A" & i).Value & "<br/>" & _
" " & ThisWorkbook.Sheets("Anniversaire").Range("B" & i).Value & "<br/>" & _
"," & "<br />" & _
"Permettez moi de vous souhaiter un joyeux anniversaire et une excellente journée" & "<br />" & "<br/>" & _
"De la part de : Mr XXXXXXXXXXXXXXXXXXX" & .HTMLBody
tu n'as pas ta signature ??
Attention, en html le Chr(13)
n'a aucune influence, il faut mettre "<br/>"
Pour le reste, je n'avais pas compris que tu importais des données d'outlook. Voir les formum outlook à mon avis, ou https://www.rondebruin.nl/.