Sub MaJ()
Dim DerL As Long, Lif As Long
With Worksheets("A démarcher")
DerL = .Range("A" & Rows.Count).End(xlUp).Row
For i = DerL To 5 Step -1
If .Cells(i, 3) <> "" And .Cells(i, 5) < Date Then
Lig = Worksheets("Refus").Range("A" & Rows.Count).End(xlUp).Row + 1
.Rows(i).Copy Worksheets("Refus").Range("A" & Lig)
.Rows(i).Delete
End If
Next
.Range("A4:F" & DerL).Sort Key1:=Range("E4"), Order1:=xlAscending, Header:=xlGuess, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub