Sub SupprimerLigne()
Dim DerLig As Long
min=60
max=80
Derlig = Cells(Rows.Count, 1).End(xlUp).Row
For lignes = DerLig To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & DerLig), Range("F2:F").Value < max And Range("F2:F").Value > min, Range("A" & lignes)) = 1 And Range("E" & lignes) = 1 Then
Rows(lignes).Delete
End If
Next lignes
End Sub