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).Offset(, 7) > 1 Then
.Cells(i, 1).Offset(, 8) = "accord"
If .Cells(i, 1) <> "" And .Cells(i, 2) <> "" And .Cells(i, 3) <> "" And .Cells(i, 4) <> "" And .Cells(i, 6) <> "" Then
.Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
.Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 6) - .Cells(i, 1).Offset(, 5)
Else
Cells(i, 1).Offset(, 6) = ""
Cells(i, 1).Offset(, 7) = ""
Cells(i, 1).Offset(, 9) = ""
End If
End If
Next i
End With
End Sub