Boujour à tous,
Alors là les gars chapeau !
Merci milles fois car j'etais vraiment bloqué !
Question subsidiaire:
J'utilise dans mon projet cette macro ci-dessous qui est vraiment tres rapide, aussi au lieu de faire fonctionner à la queue leu leu....à la queue leu leu tout le monde s'eclate.... les deux precedemment evoquées par CBernardT et Robert ne serait il pas possible de modifier ou d'y integrer la nouvelle donne ?
thank's for all !
Sub SupprCond()
Dim Tab_Cells As Variant, Tab_Row() As String
Dim Deb_Tab As Long, Compteur As Long, Compteur2 As Long, Compteur3 As Long
Application.ScreenUpdating = False
With ActiveSheet
Tab_Cells = .Range("A1:N" & Range("A1").SpecialCells(xlCellTypeLastCell).Row).Value
Compteur = 0
Compteur3 = 65536
For Compteur2 = 1 To UBound(Tab_Cells)
If Tab_Cells(Compteur2, 1) = "GENERAL" _
Or Tab_Cells(Compteur2, 1) = "ETAT" _
Or Tab_Cells(Compteur2, 1) = "EXERCICE" _
Or Tab_Cells(Compteur2, 1) = "INSP" _
Or Tab_Cells(Compteur2, 1) = "REGION" _
Or Tab_Cells(Compteur2, 1) = "ASSIETTE" _
Or Tab_Cells(Compteur2, 14) = "MONTANTS EXPRIMES EN EUROS" _
Then
If Compteur3 < 65536 Then
Tab_Row(Compteur) = Compteur3 & ":" & Compteur2
Else
Compteur = Compteur + 1
ReDim Preserve Tab_Row(1 To Compteur) As String
Tab_Row(Compteur) = Compteur2 & ":" & Compteur2
Compteur3 = Compteur2
End If
Else
Compteur3 = 65536
End If
Next Compteur2
For Compteur2 = Compteur To 1 Step -1
.Range(Tab_Row(Compteur2)).Delete Shift:=xlUp
Next Compteur2
.Range("A1").Select
End With
MsgBox "Cliquez pour valider"
End Sub