Bonsoir
Sub test()
With Feuil1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("c" & i) = Date - .Range("a" & i)
Next i
End With
End Sub
Oubien
Sub test()
With Feuil1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("c" & i) = .Range("b" & i) - .Range("a" & i)
Next i
End With
End Sub