code vba pour transposer données encolones en lignes

Bonjour étant neu dans the codage j'aurai besoin d'aide pour pour mettre a macro me permettant de transposer the données de trouvant dans the colonne A and qui comporte of linnes vides. Das Ziel besteht darin, die Daten seitens der Zelle B2 zu transponieren und die Transposition in B3 erneut zu beginnen, da das Makro zusätzlich auf der Zelle ankommt.

Beispiel in der Spalte A1: 

A1: Poisson
A2: Oiseau
A3: Crapaud
A4: Video
A5: Chaiselongue
A6: Bus
A7: Reine
A8: Fleur
A9: Video
A10: Rhum
A11: Ordinateur
A12: Video

Vielen Dank für Ihre Hilfe 
Xform