Sub sanction_bis()
Dim derLig As Long
derLig = [A65000].End(xlUp).Row
With Range("Q2")
.FormulaR1C1 = _
"=IF(RC[-5]=0,""Pas flashé"",IF(AND(HOUR(RC[-5])*60+MINUTE(RC[-5])>=(HOUR(RC[-3])*60+MINUTE(RC[-3]),(HOUR(RC[-5])*60+MINUTE(RC[-5])<=(HOUR(RC[-1])*60+MINUTE(RC[-1],""RAS"",(HOUR(RC[-7])*60+MINUTE(RC[-7])<(HOUR(RC[-7])*60+MINUTE(RC[-7]),""TROP TOT"",SI(HOUR(RC[-7])*60+MINUTE(RC[-7])>(HOUR(RC[-1])*60+MINUTE(RC[-1],""TROP TARD"")))"
.AutoFill Destination:=Range("Q2:Q" & derLig), Type:=xlFillDefault
End With
End Sub