kód vba pour transposer données en colonnes en lignes

Bonjour étant nouveau dans le codage j'aurai besoin d'aide 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 macro érkezés sur la cellule vide, ainsi de suite.

Példa dans la colonne A1: 

A1: Poisson
A2: Oiseau
A3: Crapaud
A4: Videó
A5: Sezlon
A6: Busz
A7: Reine
A8: Fleur
A9: Videó
A10: Rhum
A11: Ordinateur
A12: Videó

Merci pour votre szárnysegédje 
xform