Option Explicit
Sub Bouton1_QuandClic()
Dim tablofeuille(1 To 3, 1 To 3)
Dim tablo()
Dim i As Integer, j As Integer, x As Integer
Dim k As Byte
tablofeuille(1, 1) = 'classeur3.xls': tablofeuille(1, 2) = 'Feuil1': tablofeuille(1, 3) = 'plage1'
tablofeuille(2, 1) = 'classeur4.xls': tablofeuille(2, 2) = 'Feuil3': tablofeuille(2, 3) = 'plage2'
tablofeuille(3, 1) = 'classeur5.xls': tablofeuille(3, 2) = 'Feuil2': tablofeuille(3, 3) = 'plage3'
For i = 1 To UBound(tablofeuille)
With Workbooks(tablofeuille(i, 1))
With .Sheets(tablofeuille(i, 2))
For j = 1 To .Range(tablofeuille(i, 3)).Rows.Count
x = x + 1
ReDim Preserve tablo(1 To 10, 1 To x)
For k = 1 To .Range(tablofeuille(i, 3)).Columns.Count
tablo(k, x) = .Range(tablofeuille(i, 3))(j, k)
Next k
Next j
End With
End With
Next i
Range('a1').Resize(UBound(tablo, 2), UBound(tablo, 1)) = Application.WorksheetFunction.Transpose(tablo)
End Sub