Gestion des doublons et Optimisation

Bonjour à tous

Nouveau sur le forum et plus que Junior en VBA.

J essaye de faire une macro, qui pour toutes les colonnes si en colonne 1, j ai la meme valeur alors je concatene la cells(i,j) et la cells(i-1,j).

Le soucis c est que lorsque en colonne 1 j ai lememe Id, dans les autres colonnes, je peux avoir des celuules vides ou des doublons.

J ai touvé une solution en filtant chaque colonne, mais ca prend beaucoup de temps.

J ai pensé aux variants mais, la je n'y comprends plus rien

Help please

nrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row

ncol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

For j = 3 To ncol

For i = 4 To nrow

k = i - 1

Range(Cells(4, 1), Cells(nrow, ncol)).Select

Selection.Sort Key1:=Range(Cells(4, 1), Cells(nrow, ncol)), Order1:=xlAscending, Key2:=Range(Cells(4, j), Cells(nrow, j)), Order2:=xlAscending

If Cells(i, 1) = Cells(k, 1) Then

If Cells(i, j) = Cells(k, j) Then

Cells(k, j) = Cells(k, j)

Else

If Cells(i, j) = "" Then

Cells(i, j) = Cells(k, j)

Else

Cells(i, j) = Cells(k, j) & " // " & Cells(i, j)

End If

End If

End If

Next i

Next j

Bonjour et bienvenue sur le forum

Tu devrais joindre un fichier en donnant un exemple de ce que tu as au départ et ce que tu voudrais obtenir.

Bye !