Sub Actualiser()
Dim derlig As Long, i As Long
With Sheets("bd")
derlig = .UsedRange.Rows.Count
For i = 3 To derlig
If .Cells(i, 1) <> "" Then
.Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
.Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 5) - .Cells(i, 1).Offset(, 6)
Else
Cells(i, 1).Offset(, 6) = ""
Cells(i, 1).Offset(, 7) = ""
End If
Next i
End With
End Sub