Sub soldejour()
'Macro par DAN pour Jeromeb - 07/11/06
'http://www.excel-downloads.com/forum/69920-probleme-recopie-des-formules-sur-nouvel-onglet.html
Dim debit As Long, credit As Long, soldeprec As Long
Dim i as byte
For i = 6 To 16
debit = Range("C" & i).Value
credit = Range("D" & i).Value
soldeprec = Sheets(3).Range("E" & i).Value
Range("F" & i).Value = debit - credit + soldeprec
Next i
End Sub