Souci perte données range vers array

    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 :-(