Améliorer une macro super compliquée

Bonjour,

voilà, j'ai les deux macro suivantes :

Sub Séparer()
'
' découper Macro
' Macro enregistrée le 15/07/2008 par
'
Application.ScreenUpdating = False

Dim i As Integer, NbLigne As Integer, Contenu

Range("B2").Select 'point de départ
While ActiveCell.Value <> Empty
Contenu = Split(ActiveCell.Value, Chr(10))
NbLigne = UBound(Contenu)
If NbLigne > 0 Then
With ActiveCell
Range(.Offset(1, 0), .Offset(NbLigne, 0)).EntireRow.Insert
For i = 0 To NbLigne
.Offset(i, 0).Value = Contenu(i)
.Offset(i, -1).Value = .Offset(0, -1).Value
.Offset(i, 1).Value = .Offset(0, 1).Value
Next i
End With
End If
ActiveCell.Offset(NbLigne + 1, 0).Activate
Wend
Application.ScreenUpdating = True
End Sub

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

Sub CreateTransMenu()
Dim TransMenu As CommandBarPopup

On Error Resume Next
With Application.CommandBars(1)
Set TransMenu = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count)
End With

TransMenu.Caption = "Johanna"

'Creation des sous-menus

With TransMenu.Controls.Add(msoControlButton)
.Caption = "Séparer"

.OnAction = "Séparer"
End With

With TransMenu.Controls.Add(msoControlButton)
.Caption = "Rassembler"

.OnAction = "Rassembler"
End With

With TransMenu.Controls.Add(msoControlButton)
.Caption = "Test 1"

.OnAction = "test1"
End With
End Sub

j'en suis suis vraiment ravie mais le "ik" (eh oui il y à toujours un "ik"... elle ne prend en compte que les 2 première colonnes et j'adorerais pouvoir lui dire bah écoute tu vois cette action? bah tu le fait sur les colonne E et F et tu copie tout ce qui est dans A, B, C, D a chaque fois que tu cré un ligne...

Vous croyez que c'est possible?

Merci d'avance

Je peux peux vous laisser un exemple d'application si nécéssaire.

Merci d'avance
Johanna