Suppression ligne multi classeur

Bonjour

Heureux que mon travail ait pu t’être utile

Pour boucler sur toutes les feuilles d'un classeur :

For n = 1 To Sheets.Count
Sheets(n).Select
Next

Il suffit ensuite d'insérer ta macro d'effacement avant le Next

Pour boucler sur tous les classeurs d'un dossier :

https://excelcorpo.com/ouverture-de-tous-les-classeurs-a-partir-dun-dossier-avec-excel-vba/

Cdlmnt

Via

Bonjour,

super merci beaucoup !!

Au final ça donne :

Sub OuvertureTousClasseurs()
'Étape 1: Déclaration des variables
Dim MesFichiers As String
'Étape 2: Indication du répertoire cible
MesFichiers = Dir("chemin accès jusqu'au dossier\*.xlsx")
Do While MesFichiers <> ""
'Étape 3: Ouvrez plus de classeurs
Updatingscreen = False
Workbooks.Open "chemin accès jusqu'au dossier\" & MesFichiers

For b = 1 To Sheets.Count
Sheets(b).Select
dl = Range("A1048576").End(xlUp).Row
For n = dl To 2 Step -1
If Range("A" & n) <> "01" Then Range("A" & n).EntireRow.Clear 'clear va plus vite que delete, dans mon cas ça suffit car tout est trié
Next n
Next b
'Exécution de certains codes

MsgBox ActiveWorkbook.Name 'perso je l'ai désactivé
ActiveWorkbook.Close SaveChanges:=True
'Étape 4: Le fichier suivant du dossier
MesFichiers = Dir
Loop
End Sub

Ca fonctionne très bien. par contre une fois fait, vaut mieux que je relance mon pc car je me retrouve avec des lenteurs...

Merci à tous !