Regrouper plusieurs colonne en une

Bonjour à tous,

je me permets de vous solliciter afin de trouver une solution concernant le regroupement de plusieurs colonnes Excel en une seule.

Je vous joins un fichier avec quelques explication.

Merci par avance pour votre aide!

Très cordialement,

Jean-Philippe

Bonjour,

Voici 2 possibilités pour un résultat identique (choisis celle qui te parle le plus ) :

Sub liste()
    For i = 2 To 5 'colonnes
        For ii = 6 To Range("B5").End(xlDown).Row 'lignes
            If WorksheetFunction.CountIf(Range("G6:G" & Range("G50000").End(xlUp).Row), Cells(ii, i)) = 0 And Cells(ii, i) <> "Aucun" Then
                Range("G" & Range("G50000").End(xlUp).Row + 1) = Cells(ii, i)
            End If
        Next
    Next
End Sub

Sub liste2()
    ligne_resultat = 6
    For i = 2 To 5 'colonnes
        For ii = 6 To Range("B5").End(xlDown).Row 'lignes
            If WorksheetFunction.CountIf(Range("G6:G" & ligne_resultat), Cells(ii, i)) = 0 And Cells(ii, i) <> "Aucun" Then
                Range("G" & ligne_resultat) = Cells(ii, i)
                ligne_resultat = ligne_resultat + 1
            End If
        Next
    Next
End Sub

Le fichier :

Cordialement,

Merci beaucoup Sebastien, vous êtes bien aimable!

Très cordialement,

Jean-Philippe