Sub IDR()
Dim A As Worksheet
Dim F1 As String, F2 As String
Dim D As Long
Set A = Worksheets("CALCUL")
D = A.Cells(A.Rows.Count, "P").End(xlUp).Row
F1 = "=IF(RC[-6]=""TPC"",IF(RC[-3]<2,0,IF(RC[-3]<10,(RC[-3]-2)*1.5/10,(RC[-3]-2)*1.5/10+(RC[-3]-10)*3/10))," & _
"IF(RC[-6]=""TPE"",IF(RC[-3]<2,0,IF(RC[-3]<10,(RC[-3]-2)/10,(RC[-3]-2)/10+(RC[-3]-10)*1.5/10))," & _
"IF(RC[-6]=""TPO"",0,"""")))"
F2 = "=IF(RC16=""TPC"",TrchPrc(RC19,{2,15;10,30})," _
& "IF(RC16=""TPE"",TrchPrc(RC19,{2,10;10,15})," _
& "IF(RC16=""TPO"",0,"""")))"
A.Range("V2:V" & D).FormulaR1C1 = F1
A.Range("W2:W" & D).FormulaR1C1 = F2 ' Colonne W pour essai et comparaison avec colonne V
End Sub