XL 2013 Transposer plusieurs lignes en colonne selon un ordre défini

Bonsoir le forum,

J'ai un tableau avec 400 lignes et 400 colonnes de données (B2:OK401).
Je souhaite créer une macro qui me permettrait de transposer en colonne chaque ligne l'une après l'autre dans un nouvel onglet nommé SOLVER à savoir :
en A1 : la valeur A2 de l'onglet GRAPH,
en B1 : la valeur B1 de l'onglet GRAPH
en C1 : la valeur B2 de l'onglet GRAPH
en A2 : la valeur A2 de l'onglet GRAPH
en B2 : la valeur C1 de l'onglet GRAPH
en C1 : la valeur C2 de l'onglet GRAPH
...
et ainsi de suite dans le même ordre pour chaque ligne.

Merci d'avance pour votre aide.

SCN79