function [R] = remplacer(M, l, p, s)


  M(l,:) = M(l,:) + s*M(p,:);
  R = M;



end
