Répartir les résultats sur 2 colonnes (équilibré)

Bonjour le forum,

Je cherche à mettre en forme automatiquement des résultats de filtre dans deux colonnes au lieu d'une seule colonne

À condition les résultats doivent être (équilibré) selon le nombre.

Je vous mets en pièce jointe mon tableau !

Merci à tous pour les réponses que vous pourrez m'apportez

Cordialement

bonjour zinelamri,

une proposition,

Sub Filtre2()
     Sheets("Cor").Range("A20:F100").ClearContents     'RAZ
     With Sheets("Base").Range("B1:B100")    'La colonne B
          i = .SpecialCells(xlVisible).Count     'nombre de cellules visible (avec entête)
          If i <= 1 Then
               MsgBox "aucun cellule visible)"
          Else
               Set c = .Offset(10 + .Rows.Count).Resize(i)     'destination temporaire
               .Copy c                       'copier cellules visibles et coller dans c
               With c.Offset(1, -1).Resize(i - 1)     'colonne à gauche = index
                    .FormulaR1C1 = "=row()-" & c.Row
                    .Value = .Value
               End With
               i1 = i \ 2                    'la moitié
               c.Cells(2, 0).Resize(i1, 2).Copy Sheets("Cor").Range("A20")     'copier et coller premier moitié
               c.Cells(2 + i1, 0).Resize(i - i1, 2).Copy Sheets("Cor").Range("E20")     'copier et coller duexième moitié
               c.Offset(, -1).Resize(, 2).ClearContents     'RAZ c
               c.Borders.LineStyle = xlNone  'effacer bordures
          End If
     End With
End Sub

Bonjour le forum,
Bonjour BsAlv
C'est une proposition magnifique, sauf que la macro copiait tous les noms, et non pas en fonction de la cellule "L2".

exemple :
établissement10

Merci beaucoup de votre réponse

re, j'ai ajouté cet autofilter au début.

Bonjour le forum,
Bonjour BsAlv

Je crois qu'il y a beaucoup de fichiers que vous essayez de résoudre et de trouver des solutions.

Erreur dans le titre du fichier

Je vous remercie pour vos efforts

le mauvais PJ, maintenant le bon ici en haut.

Je vous remercie beaucoup

Cela fonctionne parfaitement, merci !!

Bien cordialement,