Soucis sous Excel 2010 pour rangement colonne ligne

Bonjour à tous, je suis stagiaire et je dois importer un fichier de texte ( celui ci concerne une base de donnée ) sous excel 2010.

J'obtiens donc tout à la vertical et je voudrais un rangement plutot comme j'ai fait en bas.

Vous allez me dire "Bah, fais le à la main" Je voudrai bien cependant il y a plus de 800 lignes.

Donc pouvez vous m'aider s'il vous plait.

Un stagiaire en galère.

Merci d'avance.

Bonjour,

Ce serait bien si tu mettais le fichier texte, sinon, on ne peux pas vraiment t'aider.

Merci

Il y a tous les identifiants avec tous les mots de passe Pour ça que mes "supérieurs" m'ont donné que ça...

ah confidentialité! ok. je fais quelque chose à adapter, je te l'envoi qd j'ai fini.

Une proposition cependant

Option Explicit
Public Sub Consolidation()
Dim Ws As Worksheet
Dim derLigne As Long, i As Long, ligne As Long
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Feuil1")
    ligne = 1
    With Ws
        .Range("C:F").Delete
        derLigne = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To derLigne Step 4
            .Range(.Cells(i, 1), .Cells(i + 3, 1)).Copy
            .Cells(ligne, 3).PasteSpecial Paste:=xlPasteValues, _
                Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            ligne = ligne + 1
        Next
        Application.CutCopyMode = False
    End With
    Set Ws = Nothing
End Sub

trop rapide et trop fort Jean Eric

Merci pour tout !!

Cependant un camarade a trouvé la solution avec la fonction décaler.

Je tiens à vous remercier pour vos réponses très rapide !!!!!!

Vraiment un grand merci !!

Bonne journée :!)