XL 2016 Récupération des valeurs non nulles d'une colonne

Sub Tri()
    Dim tablo, tablo_out, i, indice
    Application.ScreenUpdating = False
    tablo = Range("A1:A" & Range("A1000000").End(xlUp).Row)
    ReDim tablo_out(UBound(tablo))
    For i = 1 To UBound(tablo)
        If Not IsError(tablo(i, 1)) Then
            tablo_out(indice) = tablo(i, 1)
            indice = indice + 1
        End If
    Next i
    [B1].Resize(UBound(tablo_out), 1).Value = Application.Transpose(tablo_out)
End Sub

Sub Tri()
    Dim tablo, i, indice
    Application.ScreenUpdating = False
    tablo = Range("A1:A" & Range("A1000000").End(xlUp).Row)
    indice = 1
    For i = 1 To UBound(tablo)
        If Not IsError(tablo(i, 1)) Then
            tablo(indice, 1) = tablo(i, 1)
            indice = indice + 1
        End If
        tablo(i, 1) = ""
    Next i
    [B1].Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub