Microsoft 365 Suppression de lignes automatiquement

sylvanu à dit:

Bonjour Charlyrac,
Un essai en PJ avec :

VB:

Sub SuppressionLignes()
Application.ScreenUpdating = False
Chaine = "-> SOUS TOTAL PERIODE"
For L = Cells(Cells.Rows.Count, "A").End(xlUp).Row To 1 Step -1
    If Cells(L, "A") = Chaine Then Rows(L & ":" & L + 1).Delete Shift:=xlUp
Next L
End Sub

Cliquez pour agrandir...