Cells(I + 7, 22).Value = "'+" & CStr(bPourcent) & "%"Tu noteras le ' devant le + afin que Excel ne confonde pas le + avec un ordre de calcul
Cells(I + 7, 22).ValueCells(I + 7, 22).Value * (1 + (bPourcent / 100))
bPourcent = 100 * Abs(b) / bmax bPourcent.NumberFormat = "0" Cells(I + 7, 22).Value = "'+" & CStr(bPourcent) & "%"