Extraire valeur tableau dans une colonne pour un tri

Bonjour,

Je débute en VBA et j'ai besoin d'aide.

Je souhaite extraire les valeur d'un tableau d'une feuille calcul (onglet Calcul écartement) pour les transposer dans une colonne dans une autre feuille (onglet classement) sur pour faire un tri décroissant des coefficients .

Voici le code que j'ai mis en place :

Dim i As Integer ' indice i de parcours de ligne Dans Calculs ecartement
Dim j As Integer ' indice j de parcours de colonne Dans Calculs ecartement
Dim k As Integer ' indice k de parcours de colonne Dans Classement ecartement

For k = i_decallage To nb_ecartement
    For i = i1 + 1 To ville_max + i1
        For j = i + 1 To ville_max + j1
        Cells(k, 3) = Sheets("Calcul ecartement").Cells(i, j).Value ' Récupère la valeur de la case
        Cells(k, 2) = Sheets("Calcul ecartement").Cells(5, j).Value ' Récupère la colone 
        Cells(k, 1) = Sheets("Calcul ecartement").Cells(i, 8).Value ' Récupère la ligne 
        Next
    Next
Next

Le problème que j'ai c'est qu'à la fin de l’exécution j'obtiens le dernier coefficient de ma matrice répété xk.

Je pense que c'est l'imbrication de mes boucles qui ne vont pas mais je ne sais pas trop comment faire vu mon niveau en VBA.

Auriez vous une solution s'il vous plait ?

Merci d'avance pour votre aide.

Cordialement

Juliette

Bonjour judalop

Peux-tu joindre une copie du résultat "final" que tu veux obtenir ?

Ce sera plus simple pour vérifier ton code !