XL 2016 Comment réorganiser un tableau via macro vba

[bnolwalid]

Bonjour,
Je souhaite avoir votre aide pour réorganiser un tableau variable comme suit :
- donnée d'entrée : un tableau qui peut varier en terme de contenu
- sortie : le même tableau mais trié de la manière suivante :
- première colonne : celle qui contient le plus de lignes
- deuxième colonne : celle qui contient moins de la lignes que la première et ainsi de suite...

Veuillez trouver un exp en PJ :

-Feuil1: tableau initial
- Feuil2 : tableau souhaité aprés avoir appliquer la macro.

Merci d'avance pour votre aide

Bonne journée

 

[mapomme]

Bonjour @bnolwalid ,

Voir le code VBA suivant :

Sub TrierColonnes()
Dim xrg
   Application.ScreenUpdating = False
   Set xrg = Sheets("Feuil1").[a1].CurrentRegion
   xrg.Rows("1:1").Insert Shift:=xlDown
   Set xrg = Range("a1").Resize(xrg.Rows.Count + 1, xrg.Columns.Count)
   xrg.Rows(1).FormulaR1C1 = "=COUNTA(R[2]C:R" & Rows.Count & "C)"
   xrg.Sort Orientation:=xlLeftToRight, Header:=xlNo, key1:=xrg(1), order1:=xlDescending
   xrg.Rows(1).Delete Shift:=xlUp
End Sub

.

 

[bnolwalid]

Bonjour @mapomme,
La macro fonctionne très bien.
Merci infiniment pour le coup de main.

Bonne journée