correction fonction S