код vba для транспозера донных в колоннах в линиях

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 прибывает на клеточный вид, ainsi de suite.

Пример в колонне A1: 

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

Merci влить VOTRE помощник 
Xформа