Microsoft 365 Suppression de lignes automatiquement

[charlyrac]

Bonjour, dans mes fichiers excel, j'ai sans cesse les lignes -> SOUS TOTAL PERIODE et la suivante(vide) à supprimer ce qui est une perte de temps et fastidieux.Je ne sais pas comment faire pour qu'elles soient supprimées automatiquement...
Merci par avance.

 

[sylvanu]

Bonjour Charlyrac,
Un essai en PJ avec :

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

 

[charlyrac]

Bonjour Charlyrac,
Un essai en PJ avec :

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

Génial merci énormément.