Bonjour et bienvenue sur ce forum,
D'abord merci d'éviter les mots "urgent" et autres comme le demande la Charte de ce forum.
Ce serait sympa si tu pouvais l'enlever du sujet de ton premier post.
Essaie ce petit code en lui associant un bouton.
Sub Regrouper()
'Macro Dan pour Chanda - XL pratique - 21/08/08
Dim Nom As Range, val As Range
Dim i As Byte
Application.ScreenUpdating = False
ActiveSheet.Copy after:=ActiveSheet
For Each Nom In Range("B2:B" & Range("B65536").End(xlUp).Row)
For i = 1 To Range("B65536").End(xlUp).Row - 1
Set val = Nom.Offset(i, 0)
If val <> "" And val = Nom Then
Nom.Offset(0, 2) = Nom.Offset(0, 2) & " , " & val.Offset(0, 2)
Rows(val.Row).Delete
i = i - 1
End If
Next i
Next Nom
End Sub
Code à placer en VBA (ALT + F11) dans un module.
Cette macro dupliquera la feuille sur laquelle tu veux regrouper les données et laissera la feuille d'origine intacte.
Si ton pb est résolu, n'oublie pas de le signaler en utilisant la liste déroulante en bas à gauche de ton premier post.
Amicalement
Dan