Copier coller des données d'autres fichiers

Option Explicit

Private Sub copiecolle(fichier As String)
Dim debut As Integer, position As Integer, text As Variant
Dim lign As Integer, colon As Integer, x As Integer, y As Integer
Dim sh As Worksheet
Dim cl As Workbook
Dim ligne_encours As Long


'ouvrir le premier fichier pour pouvoir copier coller ses données'

Set cl = Workbooks.Open(fichier)

'Pour chaque feuille du fichier à copier, trouver le nombre de lignes et jusqu'à ce que la colonne 1 contienne un vide'
Dim count As Long, cel As Range
For Each sh In cl
count = 0
For Each cel In Columns(1) ' pas prudent de ne pas spécifier l'onglet pour Columns(1)
If cel.Value <> "" Then
count = count + 1
End If
Next cel
MsgBox count
'comme la 2eme ligne de chaque feuille est une ligne d'entete en 2eme ligne qui ne m'interesse pas, _
    je dois enlever 1 au compteur'
count = count - 1
MsgBox count
'Pour chaque fichier de la liste, pour chaque feuilles de ce fichier, _
    pour chaque ligne à partir de la ligne 3, _
    je viens copier la ligne et la coller dans la feuil1 du fichier prévisionnel '
For y = 3 To count
Workbooks("prévisionnel").Worksheet("Feuil1").Row.Value = sh.Rows(ligne_encours).Value
ligne_encours = ligne_encours + 1 'j'incrémente ligne_encours afin que dans mon fichier prévisionnel, _
    la copie continue à ce faire dans la colonne d'en dessous '
Next

Next



End Sub