Amélioration d'une macro rassemblmt de donné

Bonjour,

J'ai une macro (ci dessous) qui me permets de rassemblé des données.

Sub Macro9()
'
' Macro9 Macro
' Macro enregistrée le 01/10/2008 par
'

Dim lig As Long
Const col1 = 2 ' colonne B
Const col2 = 6 ' colonne F
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

Exemple dans le fichier http://www.cijoint.fr/cjlink.php?file=cj200905/cij0DtjcS0.xls Cette macro devrait effacer tout les doublons de la colonne E et regrouper leurs correspondants de la colonne F dans la même céllule.

Jusque la tout va bien...

Le problème c'est que ca ne marche pas...

Est ce qu'il l'un des braves chevalier du cercle d'excel pourrais me venir en aide??

Merci d'avance