Rassembler plusieurs cellules en une seul

Bonjour,

Je recherche à rassembler plusieurs cellules en une seul.

Exemple, nous avons plusieurs cellules en colonne A et je souhaite (avec un code VBA) avoir ces cellules les une à la suite des autres sans "espace" entre elles, en cellule B1:

Un petit exemple :

Suffisait de le dire au départ