Sub supprimer()
'extrait et adapter de
'http://www.commentcamarche.net/forum/affich-27817480-suppression-de-lignes-grand-tableau-vba
Dim Derlig As Long, Dercol As Byte, PlageSource()
Dim C As Long, PlageCible(), C_out As Long, Col As Byte
Application.ScreenUpdating = False
With Sheets("traitement")
Derlig = 10 ' a adapter
Dercol = 24 ' colonne X
PlageSource = .Range("A2", Cells(Derlig, Dercol)).Value
ReDim PlageCible(Dercol, 1)
For C = 1 To UBound(PlageSource)
If PlageSource(C, 1) Like "2*" Then
C_out = C_out + 1
ReDim Preserve PlageCible(Dercol, C_out)
For Col = 1 To Dercol
PlageCible(Col, C_out) = PlageSource(C, Col)
Next Col
End If
Next C
.Range(.Cells(2, "A"), .Cells(Derlig, Dercol)).ClearContents
.Range("A2").Resize(C_out, Dercol) = Application.Transpose(PlageCible)
End With
End Sub