Transformer un tableau Excel en une colonne

=INDEX($A$1:$X$365;1+ENT((LIGNE($1:$8760)-1)/24);1+MOD(LIGNE($1:$8760)-1;24))

Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
 Dim i As Integer
 i = 1
    Set FL1 = Worksheets("Feuil1") 'adapter feuille
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("A1:E15") 'adapter plage
        For Each Cell In Plage
  'Valeur de la cellule lue
          Range("F" & i) = Cell.Value 'adapter colonne de reception
          i = i + 1
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub