Macro : séparation suivant mise en forme

Bonjour,

J'ai une petite macro super cool...
qui coupe mes donnée a chaque retour à la ligne... cependant, j'ai modifier ma macro précédente pour mettre "; " à la place du retour à la ligne... et donc cette macro ne marche plus...

Est ce que quelqu'un sait comment changer cette macro ci dessous pour qu'elle coupe au "; " plutôt que le retour à la ligne???

Sub Separer()
'
'##############################################################################
'
' Procédure de découpage des données
' En cours de création
'
'##############################################################################
'
'
' Déclaration des variables
'==========================
'
Dim i As Integer
Dim NbLigne As Integer
Dim Contenu
Dim ligne As Long
Dim colonne As Long
Dim achanger As Worksheet
Dim cellule As Range
'
' Sélection de la cellule de départ
'==================================
'
On Error GoTo Erreur_debut
continuer = True
'Load UF1_Selection
'UF1_Selection.Caption = "Séparation des données"
'UF1_Selection.UF1_Texte.Caption = "Sélectionner la première cellule à scinder"
'UF1_Selection.Show
'If continuer Then
' If Range(UF1_Selection.UF1_Premiere_cellule.Value).Count = 1 Then
' ligne = Range(UF1_Selection.UF1_Premiere_cellule.Value).Row
' colonne = Range(UF1_Selection.UF1_Premiere_cellule.Value).Column
' Range(UF1_Selection.UF1_Premiere_cellule.Value).Select
' Else
' MsgBox "Merci de ne sélectionner qu'une cellule", vbExclamation + vbOKOnly, "Erreur de sélection"
' GoTo Fin
' End If
'Else
' GoTo Fin
'End If
'Unload UF1_Selection
Set cellule = Application.InputBox( _
Prompt:="Sélectionner la première cellule à scinder", _
Title:="Séparation des données", _
Type:=8 _
)
If continuer Then
If cellule.Count = 1 Then
ligne = cellule.Row
colonne = cellule.Column
cellule.Select
Else
MsgBox "Merci de ne sélectionner qu'une cellule", vbExclamation + vbOKOnly, "Erreur de sélection"
GoTo Fin
End If
Else
GoTo Fin
End If
'
' Traitement des données
'=======================
'
' Désactivation de la mise à jour à l'écran
'------------------------------------------
Application.ScreenUpdating = False
'
While ActiveCell.Text <> Empty
If IsError(ActiveCell.Value) Then
ActiveCell.Offset(1, 0).Activate
ligne = ligne + 1
Else
Contenu = Split(ActiveCell.Value, Chr(10))
NbLigne = UBound(Contenu)
If NbLigne > 0 Then
With ActiveSheet
Range(.Cells(ligne, 1), .Cells(ligne, colonne)).Copy
Range(.Cells(ligne + 1, 1), .Cells(ligne + NbLigne, colonne)).Insert shift:=xlDown
.Cells(ligne, colonne).Select
Application.CutCopyMode = False
End With
With ActiveCell
For i = 0 To NbLigne
.Offset(i, 0).Value = Contenu(i)
Next i
End With
End If
ActiveCell.Offset(NbLigne + 1, 0).Activate
ligne = ligne + NbLigne + 1
End If
Wend
Range("A1").Select
'
' Réactivation de la mise à jour à l'écran
'-----------------------------------------
Application.ScreenUpdating = True
GoTo Fin
'
Erreur_debut:
MsgBox "La sélection est incorrecte" & Chr(10) & "Veuillez réessayer", vbExclamation + vbOKOnly, "Erreur de sélection"
'
Fin:
'
End Sub


Merci d'avance de votre aide