procedure TF_Princ.TNDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
With Sender As TStringGrid Do With Canvas Do
Je suppose que le Canvas retenu était...