suppression de lignes filtrées

[oriop]

Bonjour le forum,

J'utilise un tableau Excel avec quatre filtres automatiques.

J'aimerais savoir comment je dois faire, en VBA, pour supprimer les lignes filtrées de mon tableau (toutes les lignes bleues en fait).

Je vous remerci d'avance pour votra aide

 

[myDearFriend!]

Bonsoir oriop, le Forum.

Si j'ai bien compris la question, tu peux essayer la procédure ci-dessous :

Sub Supprimer()
Dim Plage As Range
      Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
      Application.DisplayAlerts = False
      Plage.Delete
      Application.DisplayAlerts = True
End Sub

Cordialement,