feuilles dans tableau variant

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

Cliquez pour agrandir...