Sub Calculbis()
Dim Data(1 To 3) As Single, i As Long, j As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To UBound(Data)
Data(j) = Cells(i, j) 'diamètre, longueur, profondeur
Next j
'largeur
Cells(i, 4) = 0.01 * IIf(Data(1) <= 600, (Data(1) / 10 + 60), (Data(1) / 10 + 80))
'deblai
Cells(i, 5) = Data(2) * Data(3) * Cells(i, 4)
'Enrobage
Cells(i, 6) = ((Data(1) * 0.001 + 0.3) * Cells(i, 4) - (((Data(1) * 0.001) ^ 2) / 4) * 3.14) * Data(2)
'Remblai
Cells(i, 7) = (Data(3) - (Data(1) * 0.001 + 0.3)) * Cells(i, 4) * Data(2) * 0.85
'T exce
Cells(i, 8) = Cells(i, 5) - Cells(i, 7)
Next i
End Sub