Récupérer données d'autres classeurs

Option Explicit
Sub import()

Dim wsT As Worksheet
Dim wsF As Worksheet
Dim lRow(1) As Long
Dim iCol As Integer
Dim sFolderName As String
Dim sFname As String
Dim classeur1 As String
Dim i As Long
Dim Sh As Worksheet
Dim dl1 As Long
Dim plage1 As String
Dim plage2 As String
Dim premligne As Long
'**********************************

Dim MSGCONFIRM As Long
MSGCONFIRM = MsgBox("Voulez vous importer les actions IGP des équipes postées ?", vbQuestion + vbYesNo, "Information")
If (MSGCONFIRM = 6) Then

Rows("3:700").Select
    Selection.Delete Shift:=xlUp
    Selection.RowHeight = 21

Range("A3").Select

sFolderName = ThisWorkbook.Path & "\"
classeur1 = ActiveWorkbook.Name


Application.ScreenUpdating = False
Application.DisplayAlerts = False

   sFname = Dir(sFolderName & "IGP_modele_Eq*.xls")
   
   If sFname = vbNullString Then
      MsgBox "Les fichiers n'ont pas été trouvés !" _
         & Chr(10) & Chr(10) _
         & sFolderName, vbInformation
      Exit Sub
   End If
   
 premligne = 3
 
   Set wsT = ThisWorkbook.Sheets("Suivi_general")
   
   Do Until sFname = vbNullString
      Workbooks.Open sFolderName & sFname
      
      Set wsF = Sheets("Suivi_Actions")
      
       For Each Sh In Workbooks(sFname).Worksheets
           If Sh.Name = "Suivi_Actions" Then
           
                    dl1 = Workbooks(sFname).Sheets(Sh.Name).Range("A65536").End(xlUp).Row 'ligne disponible
                    plage1 = "A" & premligne & ":H" & premligne
                    Workbooks(sFname).Sheets(Sh.Name).Range(plage1).Copy _
                    Destination:=Workbooks(classeur1).Sheets("Suivi_general").Range(plage1)
                    For i = premligne To premligne
                    Next i
                    
                    premligne = premligne + dl1 + 1
                    
           End If
        Next Sh
        
      Workbooks(sFname).Close False
      
      sFname = Dir
      
   Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True



End If

End Sub

Option Explicit
Const Chemin As String = "C:\Temp\" ' ici juste pour le test
Const Onglet As String = "Suivi_Action"
Const Plage As String = "A3:G100"
Sub importdatas()
Dim arrClass
Dim SLFplage As Range
Dim i
Set SLFplage = dwbk.Sheets("Config").Range("A3:A" & [A65536].End(xlUp).Row)
arrClass = Application.Transpose(SLFplage.Value)
For i = 1 To UBound(arrClass)
    Workbooks.Open (Chemin & arrClass(i))
    ActiveWorkbook.Sheets("Suivi_Action").Range(Plage).Copy ThisWorkbook.Sheets("Suivi_general").Range("A65536").End(xlUp).offse(1, 0)
    ActiveWorkbook.Close False
    Application.CutCopyMode = False
Next
End Sub

For Each Sh In Workbooks(sFname).Worksheets
           If Sh.Name = "Suivi_Actions" Then
' [COLOR="Red"]de là[/COLOR] ..........................................................................................
'           [COLOR="red"]For i = premligne To[/COLOR]  ' à  cet endroit il te faut une variable pour avoir
'                    le nombre total de lignes à ramener ....
                    dl1 = Workbooks(sFname).Sheets(Sh.Name).Range("A65536").End(xlUp).Row 'ligne disponible
                    plage1 = "A" & premligne & ":H" & premligne
                    Workbooks(sFname).Sheets(Sh.Name).Range(plage1).Copy _
                    Destination:=Workbooks(classeur1).Sheets("Suivi_general").Range(plage1)
                    
'          [COLOR="red"]Next i[/COLOR]
' [COLOR="red"]jusque là[/COLOR] ......................................................................................
                    
           End If
        Next Sh

Option Explicit
Const Chemin As String = "[COLOR="Blue"]C:\Temp\[/COLOR]"
Const Onglet As String = "Suivi_Action"
Const Plage As String = "A3:G100"
Sub importdatas()
Dim arrClass
Dim SLFplage As Range
Dim i
Set SLFplage = ThisWorkbook.Sheets("Config").Range("A2:A" & ThisWorkbook.Sheets("Config").[A65536].End(xlUp).Row)
arrClass = Application.Transpose(SLFplage.Value)
For i = 1 To UBound(arrClass)
    Workbooks.Open Chemin & CStr(arrClass(i))
    ActiveWorkbook.Sheets("Suivi_Action").Range(Plage).Copy ThisWorkbook.Sheets("Suivi_general").Range("A65536").End(xlUp).Offset(1, 0)
    ActiveWorkbook.Close False
    Application.CutCopyMode = False
Next
End Sub