Macro : mise en forme apres rassemblement de données

Bonjour,

J'ai une macro, que je voudrais un peu modifier.
A présent, quand je la lance elle rassemble toutes les données de la colle C+1 dont les informations de la colonne C sont identiqes.

Je souhaiterais qu'elle continue à bien les rassembler, mais que plutôt de mettre les données à la queulele avec un saut de ligne, qu'elle les aligne avec un point virgule entre 2 données.

Quelqu'un saurait comment faire?
Merci d'avance

PS : voici la macro dont il est question.
Sub Rassembler()
'
' Macro9 Macro
' Macro enregistrée le 01/10/2008 par
'

Dim lig As Long
Const col1 = 1 ' colonne A
Const col2 = 2 ' colonne B
For lig = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(lig, col1) = Cells(lig + 1, col1) Then
Cells(lig, col2) = Cells(lig, col2) & Chr(10) & Cells(lig + 1, col2)
Rows(lig + 1).Delete
If Cells(lig + 1, col1) = "" Then Exit For
lig = lig - 1
End If
Next lig
End Sub