Hello bbb38,
Merci pour ta solution. Je devais finir hier, j'ai donc fini mon code en y ajoutant une boucle pour faire le travail :
For ex = 3 To Range("A65535").End(xlUp).Row
For j = 1 To dercol3
If Cells(2, j).Value = "Part" Then
y = y + Cells(ex, j)
Cells(ex, dercol3 + 1) = y
end if...