Bonjour JBARBE, Robert,
L'opérateur "+" normalement additionne mais il arrive qu'il concatène comme l'opérateur "&" quand il s'agit de textes.
C'est probablement ce qui arrive avec la 9ème instruction Cells(i, 28) = Cells(i, 23) +Cells(i, 27)
Avec Cells(i, 28) = Val(Replace(Cells(i, 23), ",", ".")) + Val(Replace(Cells(i, 27), ",", ".")) il n'y aura plus de problème.
A+