problèmes decompilation de données

Bonjour tout le monde,
jai un soucis de compilation de données à partir de
plusieurs fichiers.je mexplique:
il faudrait que je puisse à partir de ma macro allé
chercher les données que je veux à partir de telle ou
telle ligne de ces fichiers voilà ma macro:
Option Explicit

Public i As Integer

Dim WBase As Workbook
Dim WSBase As Worksheet
Dim Book As Variant


Sub Ini

Application.ScreenUpdating = False

i = 5

Cells.Clear

Set WBase = ThisWorkbook
With WBase
Set WSBase = .Worksheetsrecapitulatif
End With

OpenBook

Application.ScreenUpdating = True

End Sub

Sub OpenBook
With Application.FileSearch
..NewSearch
..LookIn = ThisWorkbook.Path
..FileType = msoFileTypeExcelWorkbooks
..Execute
On Error Resume Next
For Each Book In .FoundFiles
If Book ThisWorkbook.FullName Then
Workbooks.Open Book
Call CheckBook
End If
Next Book
End With
End Sub

Sub CheckBook
Dim WB As Workbook
Dim lig As Integer
Set WB = ActiveWorkbook

lig = Rangea65536, Rangea1.EndxlDown.Row

i = i

Application.DisplayAlerts = False

Rows1: & lig.Copy

ThisWorkbook.Sheetsrecapitulatif.Cellsi,
1.PasteSpecial

i = i + lig

WB.Close
Application.DisplayAlerts = True

End Sub

Par exemple: je veux prendre les données de la feuille x
a partir de la ligne 6 et ainsi que dans toutes les
autres feuilles des autres classeur du répertoire
En vous remerciant davance
vince
.