XL 2019 transposer données

[lynyrd]

Bonjour le forum
y a t'il un moyen de transposer en VBA les données pour que se soit plus clair.
Merci.

 

[Dranreb]

Bonjour.
Ma proposition

 

[Cousinhub]

Bonjour,
Sinon, une proposition Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Majuscule à chaque mot" = Table.TransformColumns(Source,{{"pays", Text.Proper, type text}}),
    #"Lignes groupées" = Table.Group(#"Majuscule à chaque mot", {"pays"}, {{"Villes", each Text.Combine([ville], " - ")}})
in
    #"Lignes groupées"

Bonne journée

 

[mapomme]

Bonjour à tous ,

Avec des formules matricielles (à valider avec la combinaison des trois touches Ctrl+Maj+Entrée).

En cellule E2, mettre la formule ci-dessous, la valider par Ctrl+Maj+Entrée puis la recopier vers le bas.

=SIERREUR(INDEX(A:A;PETITE.VALEUR(SIERREUR(SI(EQUIV(A$2:A$99;A$2:A$99;0)=LIGNE(A$2:A$99)-1;LIGNE(A$2:A$99));"");LIGNES($1:1)));"")

En cellule F2, mettre la formule ci-dessous, la valider par Ctrl+Maj+Entrée puis la recopier vers le bas.

=SI(E2="";"";JOINDRE.TEXTE(" -";VRAI;SI(A$2:A$99=E2;B$2:B$99;"")))

nota 1 : la fonction JOINDRE.TEXTE() est disponible dans Excel 2019.
nota 2 : si besoin, augmenter la valeur 99 (en fonction de la taille max de votre tableau source)

 

[lynyrd]

Merci à tous les trois.
C'est nickel
A+