Sub CalculTAR()
' Penser à activer Références/Solver
Dim DL%, L%
DL = Range("A65500").End(xlUp).Row
For L = 9 To DL
If Cells(L, "B") <> "" And Cells(L, "B") <> 0 Then
On Error Resume Next
SolverOk SetCell:=Range("$CZ$" & L), MaxMinVal:=3, ValueOf:="0", ByChange:=Range("$DA$" & L)
SolverSolve userfinish:=True
[DC2] = L & " / " & DL
End If
Next L
End Sub