Private Sub Workbook_Open()
x = Sheets('echeancier').Range('A65536').End(xlUp).Row
y = Sheets('depenses').Range('A65536').End(xlUp).Row
For n = 2 To x
If Sheets('echeancier').Range('A' & n) <= Date Then
Sheets('echeancier').Rows(n).Cut Destination:=Sheets('depenses').Rows(y + 1)
Application.CutCopyMode = False
End If
Next n
For n = 2 To x
If Sheets('echeancier').Range('A' & n) = '' Then Sheets('echeancier').Rows(n).Delete
Next n
End Sub