Option Explicit
Sub init()
Dim Table() As String
Dim Last As Integer
Dim i As Integer, x As Integer
Dim Col As Byte
'Windows('BNPP A & S Reporting installation.xls').Activate
Last = Range('A65536').End(xlUp).Row
For i = 1 To Last
If Cells(i, 1) <> '' Then
ReDim Preserve Table(3, x)
Table(0, x) = Cells(i, 1)
Table(1, x) = Cells(i, 2)
Table(2, x) = Cells(i, 3)
x = x + 1
End If
Next i
'Exemple Pour Renvoyer le Tableau Dynamique dans un New WorkBook
Workbooks.Add
For i = 0 To UBound(Table, 2)
For Col = 0 To 2
Cells(i + 1, Col + 1) = Table(Col, i)
Next Col
Next i
End Sub