Sub SupprimerLignes()
Dim CurLigne As Long, nbLignes As Long
Dim PlageSuppr As Range
Dim dte As Date
dte = DateSerial(2008, 1, 1)
With Sheets("Pompom")
nbLignes = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Rows.Count
For CurLigne = 1 To nbLignes
If .Range("N" & CurLigne) < dte Or .Range("X" & CurLigne) = 2 Then
If PlageSuppr Is Nothing Then
Set PlageSuppr = .Cells(CurLigne, 1)
Else
Set PlageSuppr = Union(PlageSuppr, .Cells(CurLigne, 1))
End If
End If
Next CurLigne
If Not PlageSuppr Is Nothing Then PlageSuppr.EntireRow.Delete
End With
End Sub