Transformation tableau en colonne de données

[Lexan007]

Bonjour à tous,

Je souhaite élaborer une macro pour transformer un tableau de 150 lignes x 40 colonnes en un tableau de 3 colonnes uniquement. Mes connaissances ne me permettent malheureusement pas de trouver seul la solution alors je fais appel à votre aide.
En image, la structure de mon tableau initial sur l'onglet 1 et le résultat attendu sur l'onglet 2.

D'avance merci pour votre aide.

 

[Staple1600]

Bonsoir le fil, le forum

@gosselien
Une suggestion en passant 😉

Sub Un_Petit_Regime_A_La_Bordure()
'Restitution
With ActiveSheet.[A1:C1]    ' 3 colonnes partant de la A ! nom de l'onglet à adapter
.CurrentRegion.Clear                         ' effacer la feuille
    With .Offset(1).Resize(10)
    '.FormulaLocal = b ' coller le tableau
    .Font.Name = "calibri"
    .Font.Size = 10
    .Borders.LineStyle = 1 'Dans ce cas ici, on peut économiser 4 lignes. ;-)
    .VerticalAlignment = -4108
    .HorizontalAlignment = -4108
    End With
End With
End Sub