VBA: depassement de capacité

Bonjour,

Mon modèle est le suivant:

Sub ratio2()

Dim i As Long, j As Long
Dim dfLT As Long
Dim d As Long
Dim dfCT As Long
Dim x As Double

For i = 1 To 39
For j = 2 To 7

dfLT = Worksheets(i).Cells(116, j)

dfCT = Worksheets(i).Cells(129, j)
d = dfLT + dfCT

If dfLT = 0 Then Worksheets(40).Cells(i + 41, j) = 0 Else

Worksheets(40).Cells(i + 41, j) = CDec(dfLT / d)

Next j
Next i

End Sub

Il me donne le message "dépassement de capacité"
pour i=8, j=5
avec dfLT = 110 180 ET dfCT = 503

Le problème est identique pour i=17 et j=2
avec dfLT = 0 ET dfCT = 851

Quel est le problème???????????
SVP!!!!!!!!