Sub test()
Dim i&, j&
Dim TBase As Variant, Treport(1 To 25, 1 To 1) As Variant
With Sheets("Feuil1")
TBase = .Range(.Cells(15, 1), .Cells(39, 1))
For i = UBound(TBase) To LBound(TBase) Step -1
If TBase(i, 1) <> "" Then
j = j + 1
Treport(j, 1) = TBase(i, 1)
End If
Next i
.Cells(61, 1).Resize(UBound(Treport)) = Treport
End With
End Sub