Sub test()
Dim tableau1()
Dim tableau()
y = Sheets("Feuil1").Range("A1").End(xlToRight).Column
g = LetCol(y)
h = Sheets("Feuil1").Range("A" & "65535").End(xlUp).Row
tableau = Sheets("Feuil1").Range("A" & "1" & ":" & g & h).Value
f = 0
For i = 0 To UBound(tableau)
If tableau(1, i + 1) = "A" Then
For j = 0 To UBound(tableau, 2)
If Not j = 0 Then
f = j - 1
Else
f = 0
End If
ReDim Preserve tableau1(i To i, f To j)
tableau1(i, j) = tableau(i + 1, j + 1)
Next
End If
Next
End Sub
Function LetCol(NoCol)
LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function