Microsoft 365 Transformer liste avec des lignes qui se répètent en colonne

[Pawi]

Bonjour,

J'ai une liste très longue avec quatre ligne qui se répètent comme ceci:
Nom Pierre
Titre CEO
Société P&CO
Ville Londres
Nom Paul
Titre CFO
Société P&CO
Ville New York
Nom Jacques
Titre COO
Société P&CO
Ville Paris

J'aimerais bien pouvoir avoir cette liste en 4 colonnes avec Nom, Titre, Société et Ville en titre comme ceci:

Nom Titre Société Ville
Pierre CEO P&CO Londres
Paul CFO P&CO New York
Jacques COO P&CO Paris

Est-ce possible de faire cela d'une manière simple, s'il vous plaît?

Merci beaucoup!
Paulina

 

[Cousinhub]

Bonjour, et bienvenue sur Xld
Avec Power Query, en natif dans ta version...
Regarde ce que ça pourrait donner (Clic droit dans la requête, "Actualiser", pour mettre à jour)
PS, tu aurais dû fournir un fichier exemple, ça nous évite de le créer

 

[sylvanu]

Bonjour Pawi, Cousinhub,
Ou une approche VBA avec :

Sub Worksheet_Activate()
    Dim tablo, T, L%, i%
    [A2:D10000].ClearContents
    Application.ScreenUpdating = False
    tablo = Sheets("Feuil1").[A1].CurrentRegion
    ReDim T(1 To UBound(tablo), 1 To 4): L = 1
    For i = 1 To UBound(tablo) Step 4
        T(L, 1) = tablo(i + 0, 1): T(L, 2) = tablo(i + 1, 1)
        T(L, 3) = tablo(i + 2, 1): T(L, 4) = tablo(i + 3, 1)
        L = L + 1
    Next i
    [A2].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la Feuil2.