Transposer des valeurs + concaténer + insértion caractère

Bonjour à toutes et tous, (c'est mon premier poste, soyez indulgent, por favor)

J'ai a ma disposition des lignes de nombres au format suivant :

300668

307362

328634

342605

353990

359134

ect....

Ils ont toujours ce format. Je cherche à les rassembler sur la même ligne, les fusionner au sein de la même cellule et les séparer uniquement par un ";"

Voila le résultat attendu :

300668;307362;328634;342605;353990;359134 ...

Pour la mise en ligne, je fait un copier / collage spé avec transposition.

Ensuite, ça se gate... je suis obligé de récupérer chaque cellule de la façon suivante :

=(C30&";"&D30&";"&E30&";"&F30&";"&G30&";"&H30&" ...

Ca me permet d'insérer les ; et de fusionner en même temps....

Mais vu le nombre de cellules que j'ai a rassembler, je serai mort avant d'en avoir vu le bout....

Chère père nowel, je voudrais.... une ch'tite macro de derrière les fagots qui est capable de "faire" ce que je "pense" à la même vitesse =)

Sinon, je saurai me satisfaire de "trucs & astuces" afin de gagner du temps

Merci d'avance pour vos réponses !

Bonjour,

A tester

Sub EssAi()
Dim DerLig As Long, i As Long
With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
End With
DerLig = Range("A65536").End(xlUp).Row
    For i = 1 To DerLig
    Cells(1, 5) = IIf(Cells(1, 5) = "", Cells(i, 1), Cells(1, 5) & ";" & Cells(i, 1))
    Next i
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

Bonne Journée

On m'a menti...... le père nowel il existe !!!

Merci pour cette macro qui me sauve la mise !