For Each Cell In Range('B1:B' & Range('B65536').End(xlUp).Row)
For i = 1 To Range('B65536').End(xlUp).Row
Set Rng = Cell.Offset(i, 0)
If Rng <> '' And Rng = Cell Then
Range('B' & Cell.Row).Select
Ligne = Cell.Row
' ajout des valeurs de la colonne D lors d'une détection de doublons
Cells(Ligne, 4).Value = Cells(Ligne, 4).Value + Cells(Ligne + i, 4).Value
' suppression de la ligne en doublons
Range(Cells(Ligne + i, 1), Cells(Ligne + i, 5)).Delete
'Ajouter à la liste
UserForm1.ListBox1.AddItem (Cells(Ligne + i, 2))
' sortie de la boucle
[B] i = i - 1 [/B]
End If
Next i
Next Cell