Transposer plusieurs lignes sur une ligne

Bonjour,

Je souhaiterai transposer plusieurs lignes sur une ligne si l'adresse mail (la référence) est identique. Pourriez-vous m'aider à trouver une solution pour le faire de manière automatique via vba svp ?

Par exemple , j'ai ça :

***@*** valeur 3
***@*** valeur 25

Je souhaiterai ça :

***@*** 3 25

Sachant que chaque mail peut avoir entre 1 et 39 valeurs dans 39 lignes différentes.

Merci beaucoup à vous d'avance :-)