codice vba per traspositore dati su colonne in linea

Bonjour étant nouveau dans le codage j'aurai besoin d'aide pour mettre une macro me permanent de transposer des données de trouvant dans la colonne A et qui comporte des lignes vides. L'oggetto che traspone le parti della cellula B2 e ricomincia la trasposizione in B3 dalla quale la macro arriva sulla cellula vide, ainsi de suite.

Esempio dans la colonne A1: 

R1: Poisson
A2: Oiseau
R3: Crapaud
R4: Video
A5: Sedia
A6: Autobus
R7: Reine
R8: Fleur
R9: Video
A10: Rum
A11: Ordinatore
R12: Video

Grazie per il vostro aiuto 
XForm