Bonjour,
Je ne sais pas résoudre le problème via PQ meme si je pense que c'est possible.
En attendant, ci-joint une proposition et ci-après le code correspondant, se trouvant dans le code de la feuille 1.
Pour adapter la colonne d'export, adapter cette valeur
exportStartCol = Range("F:F").Column
En remplacant F par la colonne désirée.
Sub ReindexerLignes()
Application.ScreenUpdating = False
Dim rowIndexes
With Range("A3")
rowIndexes = WorksheetFunction.Transpose(Range(.Cells, .End(xlDown)).Value2)
End With
Dim exportStartCol As Long
exportStartCol = Range("F:F").Column
Dim i As Long
For i = LBound(rowIndexes) To UBound(rowIndexes)
Range("A2:B2").Offset(i, 0).Copy
Cells(rowIndexes(i), exportStartCol).PasteSpecial xlValues
Next i
Application.CutCopyMode = False
End Sub