код vba для транспозера 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 macro return sur la cellule vide, ainsi de suite.

Приклад у колоні A1: 

A1: Пуассон
A2: Уазо
A3: Кріпо
A4: Відео
A5: Шезлонг
A6: Автобус
A7: Рейн
A8: Флер
A9: Відео
A10: Рум
A11: Ординатор
A12: Відео

Дякую за вашу допомогу 
Xform