koda vba pour transposer données en colonnes en lignes

Bonjour étant nouveau dans le codage j'aurai besoin d'aide pour pour mettre une macro me permettant de transposer des données de trouvant dans la colonne A et qui comporte des lignes vides. L'objectif est de transposer les données à partir de la cellule B2 et de recommencer la transposition en B3 dès que la macrocoming sur la cellule vide, ainsi de suite.

Primer dans la colonne A1: 

A1: Poisson
A2: Oiseau
A3: Sranje
A4: Video
A5: Ležalnik
A6: Avtobus
A7: Reine
A8: Fleur
A9: Video
A10: Rhum
A11: Ordinater
A12: Video

Hvala za vašo pomoč 
Xform