derniere ligne vide et sans formule

Sub aa()
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim A$
Dim i&
Dim T()
Dim cpt&  'compteur
'---
Set R = ActiveSheet.Columns("a:a").SpecialCells(xlCellTypeConstants)

'######################################
'### Soit on stocke dans une chaîne ###
'######################################
For Each C In R
  A$ = A$ & C & vbLf
Next C
'--- Lecture ---
MsgBox A$, , "Dans une chaîne"

'######################################################
'### Soit on stocke dans un tableau à une dimension ###
'######################################################
For Each C In R
  cpt& = cpt& + 1
  ReDim Preserve T(1 To cpt&)
  T(cpt&) = C
Next C
'--- Lecture ---
For i& = 1 To UBound(T)
  MsgBox T(i&), , "Elément tableau " & i&
Next i&

'##############################
'### Soit on stocke dans un ###
'### tableau à 2 dimensions ###
'##############################
Erase T
cpt& = 0
For Each C In R
  cpt& = cpt& + 1
  ReDim Preserve T(1 To 1, 1 To cpt&)
  T(1, cpt&) = C
Next C
'--- Inscription dans une nouvelle feuille (pour visualiser) ---
Set S = Sheets.Add
Set R = S.Range(S.Cells(1, 1), S.Cells(UBound(T, 2), 1))
R = Application.WorksheetFunction.Transpose(T)
MsgBox "Inscription dans une nouvelle feuille (pour visualiser)"
End Sub