Conversion avancée de texte - Matrice ?

Bonjour,

Je souhaite créer un tableau à partir de texte. J'ai déjà réussi à isoler les données qui m'intéressent en créant plusieurs colonne à partir d'u ncaractère clé.

Mes données se présentent actuellement ainsi :

......A......

1 Entreprise 1

2 Nom 1

3 Téléphone 1

4 "espace"

5 Entreprise2

6 Nom2

7 Téléphone2

8 "espace"

J'aimerais faire en sorte que les données soient classées :

.......A...............B.............C........

1 Entreprise1 Nom1 Téléphone1

2 Entreprise2 Nom2 Téléphone2

Merci par avance pour votre aide,

M.C.

Bonjour,

Un ti code VBA ?

Sub TransposeColonne4()
Dim Ligne As Long
Dim Compteur As Long
    Compteur = 1 'N° de la ligne où commencer
    Ligne = Compteur + 1
    With Sheets("Feuil1") 'Adapter le nom de la feuille
        .Rows(Compteur).Insert
        While .Cells(Ligne, 1) <> ""
            .Range("A" & Ligne & ":A" & Ligne + 3).Copy
            .Cells(Compteur, 1).PasteSpecial Transpose:=True
            Compteur = Compteur + 1
            Ligne = Ligne + 4
        Wend
    End With
    Range("A" & Compteur & ":A" & Ligne).ClearContents
End Sub

A coller dans un module général (module1 par exemple)

A+

Merci beaucoup pour votre aide ! Depuis le temps que j'aimerais une formation VBA... Va falloir que je m'y mette sérieusement !

A bientôt

Matthieu