Transposition de données

Bonjour, malgré des recherches je n'ai pas su trouver la réponse à mon problème que voici : Dans mon fichier, je souhaiterais transposer les données en vert sur la feuille 1 (Données) sur la feuille 2 (Aire et Ratio). Il faut que cela corresponde aussi aux numéros de la première feuille (en rouge) qui sont, hélas, dans le désordre. Ma question est donc est il plus simple de faire un tri sur la première feuille ou de faire une autre boucle for ?

Voici une ébauche de code :

Sub cotation_gravite()
' mise en place de la numérotation des polygones sur la page aire et ratio
comptage = Application.WorksheetFunction.CountA(Worksheets("Données").Range("A:A")) - 1 'nombre de section présentes dans le cercle découpé
nombre_poly = Application.WorksheetFunction.CountA(Worksheets("Aire et Ratio").Range("B:B")) - 2
For i = 1 to comptage 
For j = 1 To comptage 
If Worksheets("Données").Cells(1,i) =Worksheets("Aire et ratio").Cells(j+1,3) Then ' ici ces dexu boucles for et ce if permettent de trouver la correspondance entre les  numéros des deux feuilles 
'Instruction pour transposer 
End If
Next 
Next
End Sub

Bonjour,

Vous pouvez appliquer cette formule en D2:

=RECHERCHEH($C2;Données!$A$1:$G$11;COLONNE()-2;0)

à tirer vers la droite et vers le bas, et utiliser l'enregistreur de macro pour l'inclure dans votre code.

Cdlt

Merci pour votre aide !