Regrouper plusieurs colonnes en une seule

Bonjour,

Après un long moment à essayer de résoudre le problème moi-même (je suis un peu nulle en VBA) je craque et j'en fais appel à vos connaissances en VBA !

J'ai un onglet avec en colonne A : code mag, puis en fonction du jour de la semaine le nom d'une association ou pas.

L'idée serait, dans un deuxième onglet, de mettre le nom de toutes les asso dans une seule colonne.

Donc toutes les colonnes de B à H à partir de la ligne 2, sans fin de lignes dans une seule colonne.

Je joins le doc !

Merci beaucoup beaucoup beaucoup !!!

Bonjour,

solution via une macro

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        dc = .Cells(1, Columns.Count).End(xlToLeft).Column
        Set dict = CreateObject("scripting.dictionary")
        For i = 2 To dl
            For j = 2 To dc
                v = .Cells(i, j).Value
                If v <> "" Then dict(v) = 1
            Next j
        Next i
        Sheets("feuil2").Cells(2, 1).Resize(dict.Count) = Application.Transpose(dict.keys)
        Sheets("feuil2").Cells(2, 1).Resize(dict.Count).Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlNo
    End With
End Sub

Merci ! C'est parfait !