Supprimer des lignes en Excel

Sub delete()

Dim Repertoire As String, Fichier As String
Dim Wb As Workbook
Dim Ws As Worksheet
Dim i As Integer
 
Application.ScreenUpdating = False

' ***********************************************************************************************************

'Définit le répertoire de recherche
Repertoire = "C:\Test rows delete 24\"         ' Ici noté la racine de votre repertoire a adapter a votre ordi

' ***********************************************************************************************************

'Spécifie la recherche pour le fichiers .xls
Fichier = Dir(Repertoire & "*.csv")
 
'Boucle sur les fichiers du répertoire
Do While Fichier <> ""
    'Vérifie que le nom du classeur est différent du classeur
    'contenant cette macro (dans le cas ou il serait placé dans le même répertoire).
    If ThisWorkbook.Name <> Fichier Then
        'Ouvre chaque classeur
        Set Wb = Workbooks.Open(Repertoire & Fichier)
        
        
        'supprime les 24 premieres lignes de chaques classeur.
         For i = 24 To 1 Step -1
         Rows(i).delete
         Next i
        
        'Enregistrer le classeur modifier
        Wb.Save
        
        'Referme le classeur
        Wb.Close False
    End If
    
    Fichier = Dir
Loop
 
Application.ScreenUpdating = True
MsgBox "Terminé"

End Sub
VBA

'Public z As String
Sub Liste_Fichiers()
'http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/liste-fichiers-repertoire-sujet_57846_1.htm
'ChDir "C:\...Mon chemin....\Mes documents"
    Range("2:1000").Clear
    Range(Cells(2, 1), Cells(65536, 1)).Clear
    'Dim i As Integer, z As String
    ChDrive Left(Cells(1, 1), 1)
    ChDir Cells(1, 1).Value
    i = 1
    z = Dir("*.dvf", 1)    'dvf
    While z <> ""
        ActiveSheet.Cells(i + 1, 1).Value = z: Lecture_Ecriture (z)
        i = i + 1
        z = Dir
    Wend
    'MEF
End Sub
Sub Lecture_Ecriture(z)
'MJ
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
    Open Cells(1, 1) & "\" & z For Input As #1
    Open Cells(1, 1) & "2\" & z For Output As #2
    Print #2, "AAAAA"
    While Not EOF(1)
        Line Input #1, ligne
        Print #2, ligne
    Wend
    Close
End Sub
'Code Indenté avec Smart Indent

'Public z As String
Sub Liste_Fichiers()
'http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/liste-fichiers-repertoire-sujet_57846_1.htm
'ChDir "C:\...Mon chemin....\Mes documents"
    Range("2:1000").Clear
    Range(Cells(2, 1), Cells(65536, 1)).Clear
    'Dim i As Integer, z As String
    ChDrive Left(Cells(1, 1), 1)
    ChDir Cells(1, 1).Value
    i = 1
    z = Dir("*.csv", 1)    'dvf
    While z <> ""
        ActiveSheet.Cells(i + 1, 1).Value = z: Lecture_Ecriture (z)
        i = i + 1
        z = Dir
    Wend
    'MEF
End Sub
Sub Lecture_Ecriture(z)
'MJ
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
    Open Cells(1, 1) & "\" & z For Input As #1
    Open Cells(1, 1) & "2\" & z For Output As #2
    For i = 1 To 24
    Line Input #1, ligne
    Next
    While Not EOF(1)
        Line Input #1, ligne
        Print #2, ligne
    Wend
    Close
End Sub
'Code Indenté avec Smart Indent