Merci Sylvanu,
Non pas mac, je tourne sous Windows.
je viens d'essayer en changeant Asc et AscB en revenant au code sans les Msgbox,
j'ai donc écri :
'Chksum = Chksum Xor AscB(Mid(x, i, 1))
ValMid = Mid(x, i, 1)
ValAsc = AscB(ValMid)
Chksum = Chksum Xor ValAsc
Aucun calcul n'est effectué, aucune...