Sub Efface()
'supprime les enregistrements condition colonne D et Z
Dim i As Integer
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If Cells(i, 4).Value = "Clôturé" And Cells(i, 26).Value < 2016 Then
Cells(i, 4).EntireRow.Delete
End If
Next i
End Sub