If Mesure>ValeurMiCourse then Mesure=0
CCPR1L=Mesure