Exporter les lignes d'un fichier Excel dans d'autr

Sub AddSheets()
Application.EnableEvents = False

Dim wbNew As Workbook
Dim wsSource As Worksheet
Dim wb As Workbook
Dim sheetCount As Integer
Dim rowCount As Integer
Dim splitlignes As Integer
Dim strFilename As String


Set wsSource = ActiveSheet
Set wb = ActiveWorkbook

splitlignes = 50
rowCount = Application.CountA(Sheets(1).Range("A:A"))
sheetCount = Round(rowCount / splitlignes, 0)

Dim i As Integer

For i = 1 To sheetCount - 1 Step 1
With wb
    .Sheets.Add after:=.Sheets(.Sheets.Count)

     wsSource.Range("A1:Z1").EntireRow.Copy Destination:=Sheets(.Sheets.Count).Range("A1").End(xlUp)

    wsSource.Range("A" & (splitlignes + 2) & ":Z" & (2 * splitlignes + 1)).EntireRow.Cut Destination:=Sheets(.Sheets.Count).Range("A" & Rows.Count).End(xlUp).Offset(1)
    wsSource.Range("A" & (splitlignes + 2) & ":Z" & (2 * splitlignes + 1)).EntireRow.Delete

    ActiveSheet.Name = "Lignes " + CStr(((.Sheets.Count - 1) * splitlignes + 1)) & " - " & CStr((.Sheets.Count * splitlignes))
End With

Next

wsSource.Name = "Lignes 1 - " & splitlignes

    For Each ws In wb.Worksheets
        strFilename = wb.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws

Application.EnableEvents = True

End Sub