mã vba pour transposer données en colnes 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 Chiemvant 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 suggestncer la transposition en B3 dès que la macro đến sur la cellule vide, ainsi de suite.

Ví dụ ở cột A1: 

A1: Poisson
A2: Oiseau
A3: Khốn nạn
A4: Video
A5: Ghế
A6: Xe buýt
A7: Reine
A8: Hoa bách hợp
A9: Video
A10: Rượu Rhum
A11: Pháp lệnh
A12: Video

Cảm ơn bạn đã giúp đỡ của bạn 
Xform