Souci perte données range vers array

Bonjour à tous,

J'essaie de transmettre les valeurs de la première ligne d'une feuille dans un tableau.
Il semble que dans la boucle on soit bons, mais en fin de script le tableau semble vide...

Est-ce que quelqu'un pourrait m'éclairer sur mon erreur svp ?

    Dim ordre_destination()
    Set feuil_fin = Sheets(feuille_assemblage)
    
    
    
    
    For nocol = 1 To feuil_fin.cells(1, feuil_fin.cells.Columns.Count).End(xlToLeft).Column
        Var = feuil_fin.cells(1, nocol).Value
        If (Var <> "" And Var <> 0) Then
            ReDim ordre_destination(nocol)
            ordre_destination(nocol) = Var
            Debug.Print "Une valeur est acceptée : ", ordre_destination(nocol) 'la valeur est cohérente (string attendu)
                    
        Else
            Exit For ' si valeur vide on arrête
        
        End If
    
     
    Next nocol
    
    msag = "Ordre colonnes tableur destination :  " & Join(ordre_destination, " ; ") 
    Debug.Print msag
    'debug incohérent ,tableau de dimension cohérente mais sans valeurs :-( 
    

Merci d'avance,