Pourquoi x4 ?


if (Rect.Right -NewRect.Right) < 0 then
begin
//Agrandissement + marges gauche/droite 2px (+4)
GridSemaineTemps.ColWidths[Acol] := GridSemaineTemps.ColWidths[Acol] +...