Données horizontales

Bonjour le forum

J'ai des données qui sont inscrites verticalement, hors je voudrais qu'elles s'inscrivent horizontalement.

Elles sont inscrites par 5 cellules espacée d'une cellule vide, qu'elle formule faut-il utiliser.

çi-joint un bout de fichier

Merci

Bonjour Jad, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim DL As Integer 'déclare la variable DL (dernière ligne)
Dim LD As Integer 'déclare la variable LD (Ligne de Départ)
Dim DEST As Range 'décalre la variable DEST (cellule de DESTination)

DL = Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A
LD = Cells(1, "A").End(xlDown).Row 'définit la ligne de départ LD
Do While LD < DL 'exécute tant que la ligne de départ LD est inférieure à la dernière ligne DL
    Set DEST = Cells(Application.Rows.Count, "C").End(xlUp).Offset(1, 0) 'définit la cellule de destiantion DEST
    'revoie dans DEST redimensionné le bloc de 5 cellules transposé
    DEST.Resize(1, 5).Value = Application.Transpose(Cells(LD, "A").Resize(5, 1))
    LD = LD + 6 'incrémente la ligne de départ LD
Loop 'boucle
End Sub

bonsoir

sans vba

cordialement

ThauThème

il a un grand cœur

merci pour tout tes aides